Select Code to Download

use Data::Dumper;
use strict;
...
__OUTPUT__
$VAR1 = \3;
$VAR2 = \3;

@a = (\1,\2,\3,\5,\6,\7,\8,\9);

use Data::Dumper;
use strict;
...
          \8,
          \9
        ];