Instead if guessing what a starting value for the biggest and smallest values are,

    my $biggest_so_far  = 0;
    my $smallest_so_far = 0;
[download]

Use the first value in the array for both :

    my $biggest_so_far = my $smallest_so_far = $sortit[0];
[download]

This way, you get the exact range.