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