my $fh = Tie::Handle::FromArray->new(\@array);