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