The same, but one line shorter :-)

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