Select Code to Download

use strict;
use warnings;

...
        print "My data is (".$data_hash{$key}->$field.")\n";
    }
}

C:\tmp>tmp.pl
My data is (Mr. President)
My data is (100)
My data is (Emperor)
My data is (1000)