sub mult {
$_[0] * $_[1];
}
sub listfunc {
print"@_\n";
local $func = shift @_;
local @items = @_;
if(local @listofarrays = grep {ref($_) eq "ARRAY"} @items){
local $minlen = -1;
for $item (@listofarrays){
if($minlen<0 || $#{$item}<$minlen){
$minlen = $#{$item};
}
}
local @results;
for $loc (0..$minlen){
local @newitems;
for $item (@items){
if(ref($item) eq "ARRAY"){
push(@newitems,${$item}[$loc])
}
else{