Select Code to Download

push @rows, @fields;

push @rows, [ @fields ];

#!/usr/bin/env perl

...
my @out;
push @out,  [ @fields ] for ( 1..3 );
print Dumper \@out;

$VAR1 = [
          [
...
            'three'
          ]
        ];