#!/usr/bin/perl

sub perc
{
return (int($_[0] / $db * 10000)/100)."%";
}

while ($sor=<>)
{
$sor=~ s/[^0-9]*([0-9\.]+)mm.*/\1/g;
$sor=~ s/\n//g;
if ($sor>0)
{
$db++;
if ($sor<=35) {$below35++;}
if ($sor>=70) {$above70++;}
if (($sor>=35) && ($sor<=80)) {$betw++; $avgb+=$sor;}
if (($sor>=45) && ($sor<=55)) {$betw2++; $avgb2+=$sor;}
if ($sor==35) {$e35++;}
if ($sor==75) {$e75++;}
if ($sor==80) {$e80++;}
if ($sor==300) {$e300++;}
$avg+=$sor;
}
}
$avg=$avg/$db;
$avgb=int($avgb/$betw*100)/100;
print "rows: $db below or eq. 35mm: $below35 (".perc($below35).") \n";
print "above or eq. 70mm: $above70 (".perc($above70).") \n";
print "35-80mm: $betw (".perc($betw).") (avg:$avgb) \n";
print "45-55mm: $betw2 (".perc($betw2).")  \n";
print "35mm: $e35 (".perc($e35).") \n";
print "75mm: $e75 (".perc($e75).") \n";
print "80mm: $e80 (".perc($e80).") \n";
print "300mm: $e300 (".perc($e300).") \n";
print "average: $avg mm \n";