use strict;
use warnings;

my @file_array = qw(file1 file2 file3 file4 file5 file6 file7 file8 file9);
my @reversed_file_array = reverse @file_array;
my @files;

while (1) {

    for ( 0 .. 7 ) {
        push @files, $reversed_file_array[$_];
    }

    print "$_\n" for @files;
	
	undef @file_array;
    undef @files;
    
	sleep 2; #or sleep 3600 for 1 hour
}