Shell Programming and Scripting

#!/bin/perl
@strings = ("Shirt pants candy pants keychain",
"shirt shirt Candy gum sticker gum",
            "flowers shirt candy card card");

%hash=();

foreach $line(@strings){
    @spl = split(/ /, $line);

    foreach $temp (@spl) {
        $hash{lc $temp}++;
    }
}

foreach $i (keys(%hash)) {
    print "$i $hash{$i}\n";
}

flowers 1
gum 2
candy 3
card 2
pants 2
sticker 1
keychain 1
shirt 4

#!/usr/bin/perl
@strings = ("Shirt pants candy pants keychain",
"shirt shirt Candy gum sticker gum",
"flowers shirt candy card card");
foreach (@strings)
{
@flds=split;
foreach(@flds) {$hash{lc $_}++;}
}
print $_," " , $hash{$_},"\n" foreach keys(%hash);