#!/usr/bin/perl

use Data::Dumper;

%names;
{
   open(name, "<data/gly.txt");
   while(<name>) {
      ($ref, $str) = split /\|/;
      $names{$ref} = $str;
   }
}
 
print Dumper(%names);