my $foo for (); map {my $foo} ();