my @list = (
   [qw( APPLE     apple )],
   [qw( ALPHA     alpha )],
   [qw( ALBATROSS aLBAtross )],
   [qw( ALBACORE  aLbAcOrE)],
   etc...
);