#!/usr/bin/perl
use strict;
open SAVEF, ">savefile.txt";
  or die "Ошибка при открытии файла savefile.txt: $!";

foreach $i (<>) {
 if (open file, "<$i")
}

close SAVEF;