use strict;

my %new_hash_experiment = map {($_, undef)} qw(aa ab ac ad ae af);

foreach my $key (sort(keys(%new_hash_experiment)))
  {
    print "\nEnter a value for key: $key: ";
    chomp($new_hash_experiment{$key} = <STDIN>);
  }

foreach (sort keys %new_hash_experiment) 
  {
    print "$_ contains $new_hash_experiment{$_}\n";
  }