$min = 20;
$max = -5;
$a[$_] = int(rand(100))%$min-$max for 0..75;
$min < $a[$_] ? $min = $a[$_] : $max = $a[$_] for 0..75;

print $max - $min;