use strict;

my $f;
my $l;
my @a = ();

open FILE, "/etc/passwd" or die $!;
push @a, \*FILE;
$f = $a[0];
$l = <$f>;
print $l;

open FILE, "/etc/passwd" or die $!;
push @a, *FILE;
$f = $a[1];
$l = <$f>;
print $l;

open $a[2], "/etc/passwd" or die $!;
$f = $a[2];
$l = <$f>;
print $l;

use Data::Dumper; $Data::Dumper::Indent = $Data::Dumper::Sortkeys = 1;
print "", Dumper(\@a), "\n";