Select Code to Download

use List::Util 'max';
my $selected = max grep { $find >= $_ } @array;

# Find the largest number in @array
# that is <= $find and put it in $selected
...
                          and $number >  $selected;
    last if defined $selected and $selected == $find;
}