my %data_hash =
   map { split m{\|}, $_, 2 }
   map {chomp; $_}
   <$fileHandle>;