my ($lidno, $perbin, %lists) = (10, 10);
my %availableNumbers = map { $_ => $_ } 1..$lidno*$perbin;