my $filename = aa; subroutine($filename); #### my $filename = subroutine($filename);