perl -ne '$l = $_; s/,//g; s,%,/100,; s/of/*/; s/pie //; $v = eval $_; print "$v\t$l"' | sort -n | uniq | tail +2 | perl -pe '($a) = /(.*?)\t/; if ($a ne $b) { print "\n"; }; $b = $a'