sub scalarmap ($&@)
{
    local ($a, $b) = ( shift );
    my $code = shift;
    foreach $b (@_)
    {
        $a = &$code;
    }
    return $a;
}

my @array = 1..10;
my $sum = scalarmap 0, {  $a + $b } @array;