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