#!/usr/bin/perl -w
use strict;

use constant Threshold => 0.1;

my (@lines, @times, $tot_time);
while (my $l = <>) {
	push @lines, $l; 
	if ($l =~ /actual time=(\d+\.\d+)\.\.(\d+\.\d+) rows=(\d+) loops=(\d+)/) {
		my ($start,$end,$rows,$loops) = ($1,$2,$3,$4);
		my $elapsed = ($end - $start) * $loops;
		push @times, $elapsed;
	}
	else {
		push @times, 0;
	}
	if ($l =~ /Total runtime:\s+(\d+\.\d+) ms/) { $tot_time = $1; }
}

for (my $i=0; $i<scalar @lines; $i++) {
	if (($times[$i] / $tot_time) > Threshold) {
		print $i+1,": $lines[$i]";
	}
}

exit;