map.pl

use strict;
use warnings;

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


my @d = my_map { $_ ** 2 } ( 1, 2, 3, 4, 5 );
print "@d", "\n";