print for map $_->[1], sort { $b->[0] <=> $a->[0] } map [ /\(millisec\):(\d+)/, $_ ], @data;