25 lines
325 B
Perl
25 lines
325 B
Perl
|
|
||
|
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
my @names = qw(
|
||
|
|
A E I
|
||
|
|
B F J
|
||
|
|
C G K
|
||
|
|
D H L
|
||
|
|
);
|
||
|
|
|
||
|
|
my %count;
|
||
|
|
|
||
|
|
foreach (@names) {
|
||
|
|
if (exists $count{$_}) {
|
||
|
|
$count{$_}++;
|
||
|
|
} else {
|
||
|
|
$count{$_} = 1;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach (keys %count) {
|
||
|
|
print "$_ \toccurs $count{$_} time(s)\n";
|
||
|
|
}
|