hash from CSV-like structure

Select or download this

200326951|_|rel_Access1|_|200315482|_|
200326951|_|rel_Access1|_|200315786|_|
200326951|_|rel_Access2|_|200315482|_|
200326951|_|rel_Access2|_|200315786|_|

Select or download this

my %hash;

...

use Data::Dumper;
print Dumper(\%hash);

Select or download this

$VAR1 = {
  '200326951' => {
...
        }
     }
};

Select or download this

$VAR1 = {
  '200326951' => {
...
};

Select Code to Download