#!/usr/bin/perl -w

use strict;
use Symbol;

my @handles;
for (1 .. 2) {
    my $fh = gensym;
    open $fh, "test$_";
    push @handles, $fh;
}

foreach my $handle (@handles) {
    print while (<$handle>);
    print "---\n";
    close $handle;
}