#In Calling program
    use Storable; 
    store(\@array, "filename");

    # later , in Called program ..
    $aref = retrieve("filename");         # Get a ref or
    @array = @{ retrieve("filename") };   # direct into array