Source
#!/usr/bin/perl
push
@
{
$h
{
lc
$_
}
}
,
$_
for
<STDIN>
;
print
"@{$_}"
for
grep
{
@
$_
>
1
}
values
%h
;