Select Code to Download

### HEADING OF RECORD 1 ####
Logical device ID=08E1
...

### HEADING OF RECORD 3 ####
(...)

%hash = (
'08E1' => ['c29t6d1','c30t6d1','c31t6d1','c32t6d1'],
'08E2' => ['c29t4d1','c30t4d1','c31t41','c32t4d1'],
(...)
)

use strict;
use warnings;
...
}

print Dumper (\%hash);

$VAR1 = {
          '08E1' => [
...
                      'c29t4d1'
                    ],
(...)