See my above answer about .xls vs .xlsx files. What are you asking now is a simple hash operation: you must assign to each key the inner contained value:

                               # 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"

$VAR1 = {
          '001' => 'AAA'
        };
[download]

L*