This is untested, but it should work:

I personally believe that you should test it then, since (we're not under Perl 6 yet and) the %is_available{ $_ } form of subscripting/slicing doesn't exist! Incidentally, I wish it did, but... for something completely different!