my @file = <FILE>;
foreach($#file .. 0) {
     #do something with $file[$_];
}