#!/usr/bin/perl
use Modern::Perl;
no warnings qw /uninitialized /;
my @result; # assigns a list?

$INPUTFILE = "/Users/ts/numbers.txt"; # opens my file

open(INPUTFILE) or die("File error: input file\n");
open (OUTPUTFILE, "Users/ts/full_number.txt; #gives output file

while (<INPUTFILE>) {
    chomp; #removes new line
    my ($index, $value) = split /\t/; # a local list of varibles,not to sure what the stuff after spilt is
    $result[$index] = $value; #?
}
$result[3000050] = 0 unless $result[3000050];

while (my ($index, $value) = each @result) {
    next if $index == 0;
    say "$index\t", $value+0;
   
    print (OUTPUTFILE $index\t, $value+0);
}


close (INPUTFILE);
close (OUTPUTFILE)