my $a = ; print $a;