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