my $filename = aa; ##

##

  my $filename = ;

##

##

  my $filename = "foo";

##

##

  subroutine($filename);