1 ##############################################################################
5 # Takes a pure (i.e. no header lines) quasi-parallel profile (a .qp file) from
6 # stdin and inserts a counter as second field to force sort not to change the
7 # ordering of lines with the same time stamp. The result is written to stdout.
9 ##############################################################################
13 ($time, @rest) = split;
14 if ( $time == $last_time ) {
19 print $time, " ", $x, " ", join(' ',@rest), "\n";