Select Code to Download

use strict;
use warnings;
...
__DATA__
27 25 52
1 2 3

$VAR1 = [
          '27',
...
          '2',
          '3'
        ];

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