Select Code to Download

use strict;

my @list = (1,2,3);
...

use Data::Dumper;
print Dumper @result;

$VAR1 = [
          1
        ];
...
$VAR7 = [
          3
        ];