Select Code to Download

  my %hash = ( a => 'b' );
  # do stuff
  %hash .= ( e => 'f', g => 'h', i => 'j' );

 $hash{'e'} = 'f';
 $hash{'g'} = 'h';
 $hash{'i'} = 'j';

  my @vals = qw( f h j );
  my $i = 0;
  $hash{$_} = $vals[$i++] foreach qw( e g i );