#! perl
use strict;
use warnings;
use Data::Dump;
use List::MoreUtils 'uniq';

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

##</code><code>##

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

22:48 >

##</code><code>##

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