Select Code to Download

sub mult {
    my ($a, $b) = @_;
...
for $i (0..$N){
    push @results, mult($a, $b[$i]);
}