Select Code to Download

#!/usr/bin/perl

...
            $numbers[0] *= pop @numbers while ( @numbers > 1 );
        },
    });

C:\test>perl reduce.pl
             Rate     eval listutil  initial       *=      map reducin
+g
...
map      307455/s    1464%     104%      32%      24%       7%       -
+-

C:\test>