@Abfrage = ("123","456","123","789");
 @Liste = ();
 
 for($z=0;$z <=$#Abfrage;$z++){
 
  $vorhanden = 0;
 
  foreach (@Liste){
   if ($Abfrage[$z] eq $_){ 
    $vorhanden = 1; 
   }
  }

  if ($vorhanden == 0){
   push(@Liste, $Abfrage[$z]);
  } 
 
 }
 
 print @Liste;
 
 # Ausgabe -> 123456789

my @abfrage = (123, 456, 123, 789);
my %zwischenspeicher = ();
@zwischenspeicher{@abfrage} = ();
print keys %zwischenspeicher;