while (my $elements[20] = <INFILE>) {
        substr $elements, 7, 0, ' ';
        }

##</code><code>##

substr $elements[20], 7, 0, '  ';

##</code><code>##

@ARGV or die "Usage: $0  input-file output-file\n";