my %code;
my @lines;

while(<>) {
  push @lines, $_;
  $code{$_}++;
}

for (@lines) {
  print "$code{$_}:\t $_";
}