Select Code to Download

#!/usr/bin/perl

...
    f();
    print Dumper( $_, $a );
}

map { f(); g( $_ ) } @a;

{ map { my $x = $_; f(); g( $x ) } ( my @tmp = @a ) }