Variablen sortieren / vergleichen / verwerfen

#!/usr/bin/perl -w

use Asterisk::AGI;

$AGI = new Asterisk::AGI;

# pull AGI variables into %input

%input = $AGI->ReadParse();

$AGI->verbose("AGI-Script started", 2);
my (%output);
$varprefix="ARG"; #Vorsilbe der Variablen aus Asterisk

my $lastarg = 1;
while($lastarg >= 1){ ##Einlesen der einzelnen Variablen aus Asterisk
	my $value = $AGI->get_variable("$varprefix$lastarg");
	if($value eq undef){ ### Wenn die letzte Variable erreichtist...
		$AGI->verbose("$varprefix$lastarg mit $value war letzte Variable", 2);
		$lastarg = 0;
	}else{
		my $exists = 0;
		foreach $position (keys %output){  ## output nach doppelten Einträgen durchsuchen
			if($output{$position}eq $value){
				$exists = 1;
				$AGI->verbose("$varprefix$lastarg => $value existiert bereits!", 2);
			}
		}
		if($exists == 0) {
			$output{"$varprefix$lastarg"} = $value;
			$AGI->verbose("$varprefix$lastarg => $value zum Hash hinzugefügt!", 2);
		}
		$lastarg = $lastarg + 1;
	}
}

## Kontrolle der Variablen in Asterisk

$AGI->verbose("The Hash consists of:", 2);
foreach $position (keys %output){
	my $message = "$position => $output{$position}";
	$AGI->verbose($message, 2);
	
}