Select Code to Download

use strict;
use warnings;
...
);

local *FILE = *STDOUT;

my @keys = sort keys %HoA;
my $num_elements = @{$HoA{$keys[0]}};
for (my $i=0; $i<$num_elements; $i++) {
   print FILE join('', map { $HoA{$_}[$i] } @keys), $/;
}

1;;;;;;;1;;1;;;;;
;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;LAST;;;
;;LINE;;SVC;LINE;ACCT;VIEW;;LINE;;;UPDT;SRCE;UPDT;UPDT;WORK;