my ($a, $b, $c, $d) = split(/\|/,$unloadrow);

##</code><code>##

$hash{'a'} = $a;
$hash{'b'} = $b;
...