use strict;
use warnings;

sub my_map(&@) {
    my $cb = shift;
    my @rv;
    push @rv, $cb->($_) for @_;
    return @rv;
}

sub map_tester {
   print("pre\n");
   map { print("in\n"); return 1 } 1;
   print("post\n");
}

sub my_map_tester {
   print("pre\n");
   my_map { print("in\n"); return 1 } 1;
   print("post\n");
}

map_tester();
print("\n");
my_map_tester();