my $foo = $_[0];