##OLD LINE# open FILE, '<', "@lines[$k]" or die $!;
open (FILE, '<', $lines[$k]) or die "Cannot open file $k='$lines[$k]' :$!";