#!/usr/bin/env perl 
use strict;
use warnings;

my %terms;

for (<DATA>) {
    chomp;
    $terms{$_}++;
}

for my $key (keys %terms) {
    print "$key appeared $terms{$key}\n";
}

__DATA__
one
two
three
one
five
two
ten
one