Help for this page

Select Code to Download

Select or download this

my %hash;
while ( <DATA> ) {
...
200326951|_|rel_Access1|_|200315786|_|
200326951|_|rel_Access2|_|200315482|_|
200326951|_|rel_Access2|_|200315786|_|

Select or download this

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