my ($min, $max) = (0, 0);
while(<>){

chomp($input=$_);

if($input ne ''){
     $min = $input if $input < $min;
     $max = $input if $input > $max;
}
else{last;}
}
print "Min and Max are : $min $max \n";