my %file1;
while (<FILE1>) {
  chomp; s/\|[\s]*$//;
  my ($key, $val) = split '\|', $_, 2;
  $file1{$key} = $val;
}