use strict;
use warnings;

my %hash = ();

while (<DATA>) {
  chomp;
  $hash{$_}++;
}

foreach (keys %hash) {
  print "$_ appears $hash{$_} time(s).\n";
}

__DATA__
123  56
123  56
234  45
123  56
678  93
678  93
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.