Select Code to Download

use strict;
my @array = qw(foo bar foobar foobar bar bar bar bar foo foo foo foo b
+ar foobar);
...
foreach (keys %hash) {
    print "$_ appears $hash{$_} times\n";
}

foobar appears 3 times
foo appears 5 times
bar appears 6 times