こんな感じでうまくいたーよ

if(open(AAA,"aaa.txt"))
{
my @ppp = <AAA>;
close(AAA);
$FOX->{XXX} = \@ppp;
}

で、あとで
@{$FOX->{XXX}}
って感じで読み出す感じで。