use constant ID         => 0;
use constant FIRST_NAME => 1;
use constant INITIAL    => 2;
use constant LAST_NAME  => 3;

# Processed data would look like this:
my @data = (
#      ID        FNAME    MI  LNAME
  [qw( dramaya   Daniel   R   Amaya   )],
  [qw( bjsmith   Bob      J   Smith   )],
  [qw( abjones   Angela   B   Jones   )],
);

# Access your data:
foreach my $entry (@data) {
   my $id = $entry->[ID];
   my $fname = $entry->[FIRST_NAME];

   # or you could do:
   my ( $first, $mi, $last, $id ) = @{$entry}[ FIRST_NAME, INITIAL, LAST_NAME, ID ];

}