Select Code to Download

use Data::Dumper;
use strict;
...
print Dumper(\@foo);

Before:
$VAR1 = [
...
          'e'
        ];