Select Code to Download

use strict;
use warnings;
...

my $dd = Data::Dumper->new([\@result], [qw{*result}]);
print $dd->Dumpxs();

@result = (
            '1|2|3|a|4',
            '1|2|3|o|4'
          );