my $args = shift #### my $args = {@_}; #### @record = validate_record_length(record => \@record, recl => '18');