my @dup_array = qw\sridhar sridhar guru chan guru hubli hubli hubli hu
+rryo\;
my %unique_hash;

foreach my $x (@dup_array)
{
    $unique_hash{$x} = 1;
}
@dup_array = keys %unique_hash;
print "\n\n\n@dup_array";
[download]

Hello SridharKesari, and welcome to the Monastery!

The hash method has one drawback: it doesn’t preserve the order in which the words first appear in the original array. Here’s a simpler approach that does:

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

dd uniq qw{ sridhar sridhar guru chan guru hubli hubli hubli hurryo };
[download]

Output:

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

22:48 >
[download]

And here’s the sorted equivalent:

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

(The + is needed here to tell Perl that uniq supplies the values to be sorted, not the sort comparison routine. See the section beginning “Warning: syntactical care is required...” in sort.)

Hope that helps,

Athanasius <°(((>< contra mundum

Iustus alius egestas vitae, eros Piratica,

my @dup_array = qw\sridhar sridhar guru chan guru hubli hubli hubli hu
+rryo\;
my %unique_hash;
foreach my $x (@dup_array) {
    $unique_hash{$x} = 1;
}
@dup_array = keys %unique_hash;
print "\n\n\n@dup_array";
[download]

Sridar, I love you as a fellow human being, but please use <code> </code> HTML tags around your code. You are killing me.

I see choroba's note, but I can't help it.