Ok, dann lass ich das mal so ...
Ok, ich machs mal bischen anders:
my @xli = qw (001 002 00a 00f 01a); # Ausgangsliste
my @in = sort{$a <=> $b}map{hex $_}@xli; # hex umwandeln und sortieren
# ab Kleinstwert bis Größtwert durchgehen
for(my $i = 0; $i < $in[-1]; $i++){
if($in[$i]){
print "OK, ist drin: $in[$i]\n";
}
else{
print "Nicht in der Ausgangsliste: $i\n";
}
}
Hotti