($index = $str) =~ s/\|.*//;
$data_hash{$index} = $str;