#!/usr/bin/perl -l
sub Map {
for (@_) {
print $f->($_); # применяю функцию, ссылка на которую хранится в переменной $f, к каждому элементу массива @_ }
}
sub square {
$_[0] ** 2;
}
Map(\&square, 1..10); # квадратики
Map(sub { $_[0]*$_[0]*$_[0] }, 1..10); # кубы
IyEvdXNyL2Jpbi9wZXJsIC1sCgpzdWIgTWFwIHsKICBteSAkZiA9IHNoaWZ0OwogIGZvciAoQF8pIHsKICAgIHByaW50ICRmLT4oJF8pOyAjINC/0YDQuNC80LXQvdGP0Y4g0YTRg9C90LrRhtC40Y4sINGB0YHRi9C70LrQsCDQvdCwINC60L7RgtC+0YDRg9GOINGF0YDQsNC90LjRgtGB0Y8g0LIg0L/QtdGA0LXQvNC10L3QvdC+0LkgJGYsINC6INC60LDQttC00L7QvNGDINGN0LvQtdC80LXQvdGC0YMg0LzQsNGB0YHQuNCy0LAgQF8KICB9Cn0KCnN1YiBzcXVhcmUgewogICRfWzBdICoqIDI7CQp9CgpNYXAoXCZzcXVhcmUsIDEuLjEwKTsgIyDQutCy0LDQtNGA0LDRgtC40LrQuAoKTWFwKHN1YiB7ICRfWzBdKiRfWzBdKiRfWzBdIH0sIDEuLjEwKTsgIyDQutGD0LHRiwo=