my @tmp; my @new_output; foreach my $var (@old_output){ if($var !~ /\n/){ push(@tmp, $var) } else{ print(@tmp); push(@new_output, @tmp); @tmp = (); } }