#!/usr/bin/perl

print"Enter the key\n";

my $key = <STDIN>;

chomp($key);

print"Enter the value for the Key $key\n";
  
my $value = <STDIN>;
  	
chomp($value); 

my %h = ();

while (($key ne "") && ($value ne ""))
{
         	
	$h{$key} = $value;
        
	print "Value inserted successfully\n";
  
	print"Enter the key\n";

	my $key = <STDIN>;

#	chomp($key);
 
        print"Enter the value for the Key $key\n";
  
	my $value = <STDIN>;
  	
#	chomp($value); 

}


foreach my $keyy (keys %h)
{

print "$keyy => $h{$keyy}\n";

}