Select Code to Download

use strict;
use warnings;
...
   }
}
print Dumper(%records);

$VAR21 = '001!SCHEDULE';
$VAR22 = {
...
                        }
                      ]
         };