my $floor_number; for $floor_number (1..3) { $c->bind("floor${floor_number}", '<1>' => # line 64 [\&floor_display, $floor_number, \%floor_labels, \%floor_items, \%cinfo, \$active_floor, $c_entry], );