#!/usr/bin/env perl
my @header = (
    "Index",
    "Chromosome Position",
    "Gene",
    "Inheritance",
    "RNA Accession",
    "Chr",
    "Coverage",
    "Score",
    "A(#F,#R)",
    "C(#F,#R)",
    "G(#F,#R)",
    "T(#F,#R)",
    "Ins(#F,#R)",
    "Del(#F,#R)",
    "SNP db_xref",
    "Mutation Call",
    "Mutant Allele Frequency",
    "Amino Acid Change",
    "HP",
    "SPLICE",
    "Pseudogene",
    "Classification",
    "HGMD",
    "Disease",
    "Sanger",
    "References",
);

# to be inserted after "Amino Acid Change" header member
my $nineteenth_member = "Heredity";

# insert into @header members
splice @header, 18, 0, $nineteenth_member;

$" = "\t"; # output separator for print when interpolating

# every element of @header will be separated by tab
print "@header\n";

#!/usr/bin/env perl

my @numbers = qw( 1 2 3 4 );

my @fractions = qw( 3.1 3.2 3.3 3.4 );

splice @numbers, 3, 0, @fractions;

{
    local $" = ",";
    print "@numbers\n";
}

print "@numbers\n";

perl example2.pl
1,2,3,3.1,3.2,3.3,3.4,4
1 2 3 3.1 3.2 3.3 3.4 4