my @a = qw( alpha beta gamma delta epsilon );

tie *FH, 'Tie::Handle::Array' => \@a;
while (<FH>)
{
	print "$_\n";
}