++@h{@a,@b,@c,@d};

##</code><code>##

while ( my ($k, $v) = each %h ) {
  print "$k:$v.\n";
}