my %vals;
while (my $line = <$IN>) {
     if ($line =~ />/) {
          my $element = $1 if $line =~ /\|([^|]+)>\s*$/;
          $line = <$IN>;
          chomp $line;
          $vals{$element}=$line;
     }
}