IO::Tee

# Create an array of file handles
my @fhs;
for my $file (qw (gash1.txt gasg2.txt gash3.txt) {
    open (my $fh, '>', $file) or die "Unable to open $file: $!";
    push @fhs, $fh
}

# Now for the print
print $_ "Some stuff\n" for @fhs;
print $_ "Some more stuff\n" for @fhs;

# Close the files
close $_ for @fhs;
[download]

I usually use a subroutine similar to this,

open LOG, ">>", "/path/to/logfile" or die;
sub logme {
    print STDERR @_;
    print LOG @_;
}
logme "something interesting happened\n";
[download]

# tee program
# quick tool by Marshall  7/2007

use strict;
use warnings;

sub usage () 
{
print "TEE USAGE:\n tees stdout to a file and to stdout\n".
      " program | tee outfile\n".
      " sends stdout from program to outfile\n";
      exit;
}

my $filename = shift @ARGV;
usage unless $filename;

open (OUTFILE, ">$filename")
          or (die "Can't open OUTFILE: $!");

while (<>)
{
   print;
   print OUTFILE;
}
close OUTFILE;
1;
Adapt to your needs, re: different FILEHANDLES or use IO::Tee
[download]