my %hash;
while (<DATA>)
{
        my ($k, $v) = split /\t/o;
        $hash{$k} = $v;
}
__DATA__
440035528809    6946395707444   
332679554392    162874763688655 
913537320343    56726180700920  

##</code><code>##

my %hash = (
440035528809=>'6946395707444',
332679554392=>'162874763688655',
913537320343=>'56726180700920',
);

##</code><code>##

use 5.010;
open my $perl, '>', 'perl.pl';
open my $data, '>', 'data.pl';

print $perl <<'CODE';
use strict;
my %hash = (
CODE

print $data <<'CODE';
use strict;
my %hash;
while (<DATA>)
{
	my ($k, $v) = split /\t/o;
	$hash{$k} = $v;
}
__DATA__
CODE

for (0 .. 100_000)
{
	my $k = int rand 1_000_000_000_000;
	my $v = int rand 1_000_000_000_000_000;
	print $perl "$k=>'$v',\n";
	print $data "$k\t$v\t\n";
}

print $perl <<'CODE';
);
CODE