use strict; use vars qw(@Claim_Fields %Claim_Table); @Claim_Fields = ( [ 'claim_batch_number', 'N', 'A8' ], [ 'claim_number', 'N', 'A6' ], [ 'claim_type', 'L', 'A2'], [ 'payment_direct', 'N', 'A2'], ); %Claim_Table = get_table();