RosettaCodeData/Task/I-before-E-except-after-C/Perl/i-before-e-except-after-c-2.pl

while (<>) {
    my @columns = split;
    next if 3 < @columns;
    my ($word, $freq) = @columns[0, 2];
    for my $k (@keys) {
        $count{$k} += $freq if -1 != index $word, $k;
    }
}