Select Code to Download

my $record = [
    { K_AGE => 1, K_NAME => 2 },
    1001,
    'Doraemon'
];

print "Name: '$record->{K_NAME}'  Age: $record->{K_AGE}\n";