Select Code to Download

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

print "@in";