open(FILE, '<', 'data.txt');
my %result = map {split /\|/; ($_[0] => $_[1])} <FILE>;
close(FILE);