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);