my %params = $cgi->Vars;
#  Now Kanji's code becomes
foreach my $file ( qw (file1 file2 file3 ...) ) {
  push @tour_photos, $params{$file}
    if exists($params{$file}) && $params{$file} ne '';
}