#! /usr/bin/perl
use strict;
#array.pl
my @array;
for (1..10000)
{
  my $x=$_;
  $x="a".$x;
  push (@array, $x);
}
foreach (@array)
{
print "$array[$_]=>$_", "\n";
}