push(@files, $nextfile); print "\n\n"; foreach $file (@files) { print "$file\n"; print "
\n"; } print "\n\n"; exit;