push @tour_photos, grep{$_ ne ''} map {${"file$_"}} 1..10;
#but why do you have 10 separate variables instead of an array?

${lc $_}=$cgi->param($_) for $cgi->param;
#but wouldn't it be simpler to use a single hash instead of huge lists of variables?