সম্পাদনা
sub reference { my ($number) = @_; $number = 123456; } my $number = 100; reference($number); print $number;
পূর্বরূপ
