Help for this page
#!/usr/bin/perl ... f(); print Dumper( $_, $a ); }
map { f(); g( $_ ) } @a;
{ map { my $x = $_; f(); g( $x ) } ( my @tmp = @a ) }