my @data_list = ( { correct => 42 } );  

##</code><code>##

  foreach my $k (keys %data_list) {
     my $v = $data_list->{$k};
     print "The value for $k is $v\n";
  }

##</code><code>##

   for (my $i=0; $i < $#data_list; $i+=2) {
     my $k = $data_list[$i];
     my $v = $data_list[$i+1];
     print "The value for $k is $v\n";
  }