Select Code to Download

use Data::Dump 'dd';
use strict;
...
  die "error $v1 != $v2" if $v1 ne $v2; 
  print "$l1: $k1=> $v1\n";
}

/usr/bin/perl -w /tmp/lanx_fringe.pl 
{ a => { b => { c => 1 }, d => 2 }, e => 3, f => 4 }
...
2: c=> 1
1: d=> 2
0: f=> 4