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