#! perl -slw
use strict;

$, = ' ';

my %h; @h{ 'a' .. 'z' } = 1 .. 26;
print %h;

while( my $k = each %h ) {
    print "$k ", %h;
}