Select Code to Download

use strict;
sub prepareFormat {
...
    return map $result{$_}, qw(Y M D h m s);
}
...