my @dup_array = qw\sridhar sridhar guru chan guru hubli hubli hubli hurryo\;
my %unique_hash;
foreach my $x (@dup_array) {
    $unique_hash{$x} = 1;
}
@dup_array = keys %unique_hash;
print "\n\n\n@dup_array";