use strict; use warnings; my %hash; my @array; my $key = 'aa'; my $prompt = "\nEnter value : "; print $prompt; while () { chomp; push @array, $_; print $prompt; } $hash{$key++} = $_ for @array; print "\n"; print "$_ contains $hash{$_}\n" for sort keys %hash;