Select Code to Download

use warnings;
use strict;
...
close $mfh;

print $memfile;

$VAR1 = {
          'c' => {
...
          'd' => 4,
          'a' => 1
        };