Select Code to Download

use strict;

...
close (IN);

@sorted_ages = sort { $b <=> $a } @sorted_ages;

use strict;

...
} <IN>;

close (IN);