print $q->p(
          $q->scrolling_list(
              -name   => 'list_input',
              -values => [0..$#array],
              -size   => 1,
              -labels => {
                  # yuck, using uninitialized global
                  map { $::i++, $_ } @array
              }
          )
      );