use strict;
use warnings;

my %HoA = (
   0 => [ split(/\n/, <<'__EOI__') ],
1;;;;;;;
;;;;;;;;
;;;;;;;;
;;LINE;;SVC;LINE;ACCT;VIEW;
__EOI__

   1 => [ split(/\n/, <<'__EOI__') ],
1;;
;;;
;;;
;LINE;;
__EOI__

   2 => [ split(/\n/, <<'__EOI__') ],
1;;;;;
;;;;;;
;;;LAST;;;
;UPDT;SRCE;UPDT;UPDT;WORK;
__EOI__
);

local *FILE = *STDOUT;