note
LTjake
<p>Along with what [bm] said, it looks like you're forgetting to [chomp] off any newline characters.</p>
<code>
use strict;
my %count;
while( <DATA> ) {
chomp;
$count{ $_ }++;
}
print "$_\t$count{ $_ }\n" for keys %count;
__DATA__
123 56
123 56
234 45
123 56
678 93
678 93
</code>
<p>With chomp:</p>
<code>
678 93 2
234 45 1
123 56 3</code>
<p>w/o chomp:</p>
<code>
678 93
1
678 93 1
123 56
3
234 45
1</code>
<p>--<br>"<i>To err is human, but to really foul things up you need a computer.</i>" --Paul Ehrlich</p>
284566
284566