Select Code to Download

                               # quotes needed even with fat comma or 
+you get 1 instead of 001
perl -MData::Dumper -e "%hash=('001'=>{Name=>'AAA'}); foreach $k (keys
+ %hash){$hash{$k}=$hash{$k}{Name}} print Dumper \%hash"
...
          '001' => 'AAA'
        };