Functional definition of map in Perl

mymap.pl

#!/usr/bin/env perl

use strict;
use warnings;

sub myMap (&@) {
    my ($fn, @lst) = @_;
    return () unless @lst;
    return (sub { local $_=$_[0];$_[1]->() }->($lst[0],$fn),
        &myMap( $fn, @lst[1..$#lst] ));
}

# usage:
# myMap { print "$_\n" } (1,2,3,4);

This does not handle scalar context. It blows up in memory usage and destroys your function stack quickly. It should be a good study of Perl syntax for beginners, though.