for my $line (@line_array) { push(@item_array, [split(/\s/, $line)]); } #### for my $line (@line_array) { my @hold_array = split(/\s/, $line); push(@item_array, \@hold_array); }