Help for this page
map($action1->($_), @arr);
my %cache; sub routine ... map{ $cache{ $_ } ||= $action1->($_) } @arr); }