for (@data) { push(@{$arrays}, [split(/ /,$data[$a])]); $a++; }