push @r, $a and $s += $a while print "in> " and chomp($a = <STDIN>) and $a >= 0;
@r = sort {$a cmp $b} @r;
print "max: $r[$r-1]\navg: ".$s / @r." \nmin: $r[0]\n";