$min = 0; $max = 0; $sum = 0; while(<>) { s/[\r\n]//g; if ( $. == 1 ) { $min = $_; $max = $_; } $sum = $sum + $_; if ( $_ < $min ) { $min = $_; } if ( $_ > $max ) { $max = $_; } } printf( "MAX = %f:MIN = %f:AVERAGE = %f\n", $max, $min, $sum /$. ); exit;