my @data;
while (my $line = <$fh>) {
  chomp($line);
  last if ($line =~ /TOTAL COMMAND SUMMARY/);
  next if (($line =~ /^[a-zA-Z]/) or ($line =~ /^\s*$/) or ($line =~ /^\s/));
  push @data, $line;
}

my @sorted =
    map  { $_->[0] }
    sort { $a->[1] <=> $b->[1] }
    map  [ $_, (split)[3] ], @data;

##</code><code>##

next unless $line =~ /^\d/;