Select Code to Download

use warnings;
use strict;
...
 3JOHN DOE                                        05241961INDV37468604
+7S
 4
 5

$HASH1 = {
           "00001" => [
...
                        " 5\n"
                      ]
         };