s/^([^|]+)|//;
my $key = $1;
$TEST{$key} = $_;