use enum qw[ STATE NAME AGE ADDRESS ];

my @arrrayOfRecs = (
    ['US', 23, 'Andy', 'adress....' ],
    ['CA', 34, 'White', '........'  ],
);