for ( @a ) {
  $h{$_} = $_;
}