#! /usr/bin/perl
use strict;
#hash.pl
my %hash;
for (1..10000)
{
  my $x=$_;

  $x="a".$x;
  $hash{$_}=$x;
}
foreach (keys %hash)
{
print "$hash{$_}=>$_", "\n";
}