Re: Counting within an array

[happy.barney]

use hash:

my %hash;
while (<MYINPUTFILE>) {
  chomp;

  $hash{$_} ++;
}

$\ = "\n";
while (my ($k, $v) = each %map) {
  print $k, $v;
}

[kennethk]

In order to meet the posted spec (output on every line), you can move the print statement into the while loop:

my %hash;
while (<MYINPUTFILE>) {
  chomp;

  $hash{$_} ++;
  print "$_$hash{$_}\n";
}

[ddrew78]

That works like a charm, thank you very much.