tie my @in, 'Tie::File', $filename;
tie my @mem, 'Tie::Array::Packed', ...;

@mem = @in; # sluuuurp

print "@in";