Select Code to Download

use strict;
use warnings;
...
    #
    return map { $results{$_} } sort keys %results;
}