- or download this
my %hash;
while (<DATA>)
...
440035528809 6946395707444
332679554392 162874763688655
913537320343 56726180700920
- or download this
my %hash = (
440035528809=>'6946395707444',
332679554392=>'162874763688655',
913537320343=>'56726180700920',
);
- or download this
use 5.010;
open my $perl, '>', 'perl.pl';
...
print $perl <<'CODE';
);
CODE