Select Code to Download

use strict;
use warnings;
...

# do I have to resort to this?
print join( ' ', map{ $_->{d} } @hoh{@keys} ), "\n"; # a4 c4

# yikes!!
print join( ' ', @hoh{@keys}{@keys} ), "\n"; # a1 a3 c1 c3 ??