my %data;
open(A, '<', 'fileA');
while (<A>) {
  chomp;
  my @cells = split(' ', $_);
  $data{lc($cells[0])} = [ @cells ];
}
close(A);