Select Code to Download

                push @sort_array, $trial_1;
              push @pointer_array, $key_r;

               push @sort_array, [ $trial_1, $key_r ];

           my @sorted = sort{ $a->[ 0 ] <=> $b->[ 0 ] } @sort_array;

my( $closest, $pointer ) = @{ $sorted[ 0 ] };

#!/usr/bin/perl -slw
use strict;
...

} ## cycle through again til done with all files

#!/usr/bin/perl -slw
use strict;
...
    print STDOUT scalar localtime;

} ## cycle through again til done with all files