@list #contains list filenames
foreach @list
  open(HANDLE, @list[$index]);
  @data = <HANDLE>;
  #etc....
  $index++;
end for