Select Code to Download

use Data::Dumper;
print Dumper [qw(a b c)], \qw(a b c);

$VAR1 = [
          'a',
...
$VAR2 = \'a';
$VAR3 = \'b';
$VAR4 = \'c';