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