my @data = (
   [ 'Mrs', 'Linda', 'Carolo', '201', '148', 'she@borg.org' ],
   [ 'Mrs', 'Jean', 'Andronlo', '317', '167', 'j@alo.com' ],
   # etc
);

##</code><code>##

my %index = (
   title => 1,
   first => 2,
   last => 3,
   room => 4,
   phone => 5,
   email => 6,
);

##</code><code>##

foreach my $row (@data) {
   print "$row->[$column{title}] $row->[$column{first}] $row->[$column{last}]\n";
}