open (IN, "$input_file") or die "Cannot open file: $!";

#variables
my $x=0;
my @keys;
my @holder;
my @array_hash;
my $blank = "-";
my $numerical_value = "num";
my $string_value = "string";
my $filter_data = "filter";
my $append = "append";

open (OUTFILE, ">>OUTPUT_$input_file") or die "Cannot create an output file: $!";

while(my $line = <IN>)
{
        chomp($line);
        $x++;
        if ($x==1)
        {
                print OUTFILE $line, "\n";
                (@keys)=split(/\t/, $line);
        }
        else
        {
                my $y=0;
                (@holder) = split(/\t/, $line);
                my %hash;
                for my $column (@holder)
                {
                        $hash{$keys[$y]}=$column;
                        $y++;
                }