in reply to Locate missing number in a series
my %lockers = map { $_, 1 } 1..25; delete @lockers{ @leased }; print "available @{[ keys %lockers ]}\n"; [download]