Select Code to Download

use strict;
use Data::Dumper;
...

print Dumper(\@array);

$VAR1 = [
          'one|two|three|four',
...
          'two',
          'one'
        ];