sub parseIntoArraySolaris { my @rows; my $element; foreach $element (@_) { my ($a, $b, $c, $d, $e, $f) = split(/\s+/, $element); push(@rows, [ $b/1024, $c/1024, $d/1024, $e, $f ]); } return @rows; }