print $q->p(
           $q->scrolling_list(
              -name   => 'list_input',
              -values => [0..$#array],
              -size   => 1,
              -labels => {
                  map { $_, $array[$_] } 0 .. $#array
              }
          )
      );