my $count = 1;
my @array = ('A','B','C');
my %hash = ();

for my $i (@array) 
{
  # set key AND initialize by $count as value of key.

  $hash{$i} = $count;      
  $count++;
}