Select Code to Download

use 5.010;
use strict;
...
$VAR1 = {
          'NOTE2' => {}
        };

no autovivification qw(exists);
if (!exists $rec{NOTE}{Nested})
...
  # but this still autovivifies $rec{NOTE}={};
  $rec{NOTE}{Nested2} = 'Foo';
}