Select Code to Download

use warnings;
use strict;
...

my @floors = (1..5);
print which_1 sub { my $p = shift; need($p == 3); }, \@floors;