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