print "$FN[$k]\n";
    $filename = <$FN[$k]>;
    chomp ($filename);
    $file->open("< $filename") or die("Can't read the source:$!");

##</code><code>##

  ...
  $filename = readline($FN[$k]);
  ...