#/usr/bin/perl -w
use strict;

local (*E,*F,*G);

my $string  = <<JUNK;
    I will print
    unless I perish
JUNK

my %rh      =   (E=> *E, F=> *F, G=> *G);

open  $rh{$_}, ">test_$_.txt" or die $!   for keys %rh;
print { $rh{$_}} $_.$string               for keys %rh;