Help for this page

Select Code to Download

Select or download this
```
@array = unpack('A24A24A24', $line);
```

Select or download this

@names = unpack('A24A24A24', $line);
@address1 = unpack('A24A24A24', $nextline);
for (0..2) { $hash{$names[$_]}{address1} = $address1[$_]; }