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;
}
}