Select Code to Download

#! perl
use strict;
...
use List::MoreUtils 'uniq';

dd uniq qw{ sridhar sridhar guru chan guru hubli hubli hubli hurryo };

22:48 >perl 1381_SoPW.pl
("sridhar", "guru", "chan", "hubli", "hurryo")

22:48 >

dd sort +uniq qw{ sridhar sridhar guru chan guru hubli hubli hubli hur
+ryo };