#!/usr/local/bin/perl

use strict;
use vars qw( $addthis $tothis $newrecord );

open (TEXT, "general.txt") || die "Couldn't open file: $|\n";
$addthis = <TEXT>;
close (TEXT);

undef $/;

open (FILES,"files.txt") || die "Could not open file: $! \n";
while ( <FILES> ) {
    open ( DATA, $_ ) || die "Could not open file: $|\n";
    $tothis = <DATA>;
    close (DATA);
    $newrecord = $addthis . $tothis;
    open ( DATA, "> $_" ) || die "Could not write to file: $|\n";
    print $_, "\n";
    print DATA $newrecord;
    close (DATA);
}
close (FILES);