Help for this page

Select Code to Download

Select or download this

%mdata = (
         $pkey => {
         ABC  => trim_trailing($rec[1]),
...
         LOC  => trim_trailing($rec[4])
         }
     )

Select or download this

$mdata{$pkey} = {
         ABC  => trim_trailing($rec[1]),
         DESC => trim_trailing($rec[2]),
         UNIT => trim_trailing($rec[3]),
         LOC  => trim_trailing($rec[4])
     };