my %file = map { chomp; split /\|/ } ;