#!/usr/local/bin/perl

use strict;
use File::Butler;
use vars qw( @newstuff @files );

Butler( "general.txt", "read", \@newstuff );
Butler( "files.txt", "read", \@files );

foreach my $file ( @files ) {
    Butler( $file, "prepend", \@newstuff );
}