my @squares = apply(sub{$_[0] * $_[0]}, \(2..5));

sub apply
{
    my($sub, $refArray) = @_;
    return map {$sub->($_)} @$refArray;
}