Select Code to Download

$number_to_compare=..........;
$max_numb=$number_to_compare;
for($i=1; $i<=100; $i++)

use List::Util qw(max);
my @nums;
...
    push @nums, $number_to_compare;
}
my $max_numb = max(@nums);