prototype.pl

use strict;
use warnings;
use feature qw/say/;

sub my_map(&@) {
    my ( $block, @list ) = @_;
    $block->($_) for @list;
}

my @list = qw(foo bar);
my_map { say shift; } @list;