use Storable qw(freeze thaw); my @Array={}; @Array = @{ thaw( $Pipe->Read() ) );