Select Code to Download

my @sorted =
    map  { $_->[1] }
...

my @results = grep { /^$mask/ig } @sorted;
print "Your file is: ", $results[$position-1], $/;

my @candidates = grep { /^$mask/ig } glob('*');
my @sorted =
    map  { $_->[1] }
...
    map  { [ (stat)[9], $_ ] } @candidates;
print "Your file is: ", $sorted[$position-1], $/
  if defined $sorted[$position-1];