my $foo=1 ;