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