use constant { K_AGE => 0, K_NAME => 1 };

my @record;
   $record[K_AGE]  = 1001;
   $record[K_NAME] = 'Doraemon';