All pastes #79353 Raw Edit

Someone

public text v1 · immutable
·published 2006-07-05 07:40 UTC
rendered paste body
#!/usr/bin/perl

chomp(@input = <STDIN>);

foreach $key (@input) {
        $count{$key} += 1;
}

foreach (sort keys %count) {
        print "$_: $count{$_}\n";
}