>perl -wMstrict -le
"my @vals =
  qw(val1  val2  val3);
 my ($hr1, $hr2, $hr3) = ({a => 1}, {b => 2}, {c => 3});
 my @h_refs = ($hr1, $hr2, $hr3);
 ;;
 die 'arrays not same size' if @h_refs != @vals;
 ;;
 $h_refs[$_]->{k} = $vals[$_] for 0 .. $#vals;
 ;;
 use Data::Dumper;
 print Dumper $hr1, $hr2, $hr3;
"
$VAR1 = {
          'k' => 'val1',
          'a' => 1
        };
$VAR2 = {
          'k' => 'val2',
          'b' => 2
        };
$VAR3 = {
          'c' => 3,
          'k' => 'val3'
        };