Select Code to Download

my $href; @{ $href }{ 'a' .. 'z' } = 1 .. 26;
my @required_fields = qw[ a c e g i k m o q s u w y ];
...
21
23
25

while( my( $kref, $vref ) = \( each %{ $href } ) ) { 
    print $$kref, ' => ', $$vref; 
}