Select Code to Download

use strict;
use warnings;
...
            else {print "\t" x ($deep)."$k => ${$ref}{$k}\n";}
  }
}