Well, I found one way that's a little messy.

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

Just as long as I don't use the array later and rely on $#array I'll be set lol. This is bugging me now

cLive ;-)