Liste Hexzahlen

[Hexer]

Ok, dann lass ich das mal so ...

        foreach my $number ( 0 .. 4095)  
        {  
                my $hex_number = sprintf "%03x", $number;  
                     unless(exists $hash{$hex_number})  
                {  
                        $next_free = $hex_number;  
                        last;  
                }  
        }