@a = ( a => { 1..10 }, b => { 'a'..'z' } );;

pp \@a;;
[
  "a",
  { 1 => 2, 3 => 4, 5 => 6, 7 => 8, 9 => 10 },
  "b",
  {
    a   => "b",
    c   => "d",
    e   => "f",
    g   => "h",
    i   => "j",
    k   => "l",
    "m" => "n",
    o   => "p",
    "q" => "r",
    "s" => "t",
    u   => "v",
    w   => "x",
    "y" => "z",
  },
]

open RAM, '>', \$file;;
print RAM pp \@a;;

open RAM, '<', \$file;;
@b = @{ eval do{ local $/; <RAM> } };;

pp \@b;;
[
  "a",
  { 1 => 2, 3 => 4, 5 => 6, 7 => 8, 9 => 10 },
  "b",
  {
    a   => "b",
    c   => "d",
    e   => "f",
    g   => "h",
    i   => "j",
    k   => "l",
    "m" => "n",
    o   => "p",
    "q" => "r",
    "s" => "t",
    u   => "v",
    w   => "x",
    "y" => "z",
  },
]