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

foreach (<>) {
 if (open file, "<$_") {
    @f=<file>
}
}

close SAVEF;