@AoD = (11,12,22 ,11,12,22 ,13,15,18);
foreach my $v1(@AoD)
{
print $v1."\n";
}
print "======\n";
my %hash = map { $_, 1 } @AoD;
my @AoD = keys %hash;
print "======\n";
foreach my $v(@AoD)
{
print $v."\n";
}