Select Code to Download

    my $floor_number;
    for $floor_number (1..3) {
...
        [\&floor_display, $floor_number, \%floor_labels, \%floor_items
+,
        \%cinfo, \$active_floor, $c_entry],
    );