# my %file1 = map { split '\|', $_ } <FILE1>;
my %file1 = map { chomp && s/\|$//g && split '\|', $_, 2 } <FILE1>;