I am a newbie in Perl. My assumption while doing this experiment was that, subroutine will be passed a scalar variable declared as my. example:

my $var; print_name $var;
[download]

Your question made me realize all possible scenario which I had totally forgotten about. Thank you. Will work towards it.