use warnings;
use strict;

my @lockers = (1..25);

my %leased = map {$_ => 1} (1..12, 14..25);

my @avail = grep {! defined $leased{$_}} @lockers;

print "$_\n" for @avail;

__END__
13