Select Code to Download

use strict;
use warnings;
...
    push @integers, $spelling_href->{ $key };
}
printf qq(%s\n), join q(, ), @integers;

1, 2, one, two, three
3, 4, 5, one, two, three

use strict;
use warnings;
...
    ;

__END__