#!/usr/bin/perl -w

my @FHlist;

open FH1, ">./1.txt";
open FH2, ">./2.txt";
open FH3, ">./3.txt";

push @FHlist,*{FH1},*{FH2},*{FH3};

foreach my $FH (@FHlist)
{
 print $FH "Don't eat the yellow snow\n";
}

print "@FHlist\n";

close FH3;
close FH2;
close FH1;