#!/usr/bin/perl -w
@W = qw( hello world );
while (<>) {
	$COUNT{$_}++ for grep { $_~~@W } map lc, split /\W+/;
}
print "$_: $COUNT{$_}\n" for sort keys %COUNT;