use strict;
use warnings;

use Data::Dumper;

my @ASAList;

while (<DATA>)
{
    chomp;
    push(@ASAList, split / /);
}

print Dumper(\@ASAList);

__DATA__
27 25 52
1 2 3

##</code><code>##

$VAR1 = [
          '27',
          '25',
          '52',
          '1',
          '2',
          '3'
        ];

##</code><code>##

$ASAList[14000000] = 1;
@ASAList = ();