1.  The first and second arguments are the list name (-name) and values (-values).  As in the popup menu, the second argument should be an array reference.

##</code><code>##

print scrolling_list('name', \@array);

##</code><code>##

my $data_dir = '/foo';
opendir(DIR, $data_dir)
   or die "Cannot opendir $data_dir:$!";
my @files = grep { /data$/ && -f "$data_dir/$_" } readdir DIR;
closedir DIR;
print scrolling_list('name', \@files);