DB<6> use Data::Dumper;

  DB<7> print Dumper \$nref
$VAR1 = \[
            [
              '5'
            ],
            [
              '4'
            ],
            [
              '4'
            ],
            [
              '2'
            ],
            [
              '4'
            ]
          ];