for (@list)
{
  
my %dmphash;


    unless (exists $dmphash{$_})