use strict; #use warnings; my @array; my $count = 0; my $count_big = 0; while(){ chomp($_); my @arraytmp = split(' ',$_); if ($count == 1){for(1..4){shift(@arraytmp)}} $arraytmp[1]=~ s/M/000000/g if ($count == 1); push(@{$array[$count_big]},@arraytmp); $count++; $count = 0 if ($count == 2); $count_big++ unless ($count); } __DATA__ QR No N/A 1 1 1 0 0 0 0 0 0 QR 1 1 1 0 157M 23:09:15.190448 00:42:28.205336 00:40:04.086054 #### if ($arraytmp[1]=~ s/M//g && $count == 1){$arraytmp[1] *= 1000000}