my %info;
while (<>)
{
	my @data;
	while (/\b(\d+)\b(?: and over)?\s+(\d+\.\d+)\s+(\d+\.\d+)\s+(\d+\.\d+)/gc)
	{
		$info{$1} = [$2,$3,$4];
	}
}

foreach (sort {$a<=>$b} keys %info)
{
	print "$_ ", join(' ', @{$info{$_}}), "\n";
}