Please, for style's sake, consider diotalevi's approach using map, or ditching the array altogether and using a hash. Why make CGI code more kludgy than it is, to begin with?

UPDATE: I have decided to make myself useful, and contribute the following:

The phash function from our fields pragma can be used to safely contort our array into a (pseudo)?hash. The first argument in my example consists of an anonymous array reference of known keys for the values' extracted from said array. This anonymous arrayref can quite easily be replaced by a reference to a splice of our array: be creative, remember: tmtowtdi.

use fields qw{ phash };
[...]
print $q->p(
  $q->scrolling_list( 
  -name   => 'list_input',
  -values => \@array,
  -size   => 1,
  -labels => { fields::phash([key0 key1 key], \@array) },
 )
);
[download]