Select Code to Download

use strict;
use warnings;
...
}

print Data::Dumper->Dumpxs([\@flds], [qw{*flds}])

@flds = (
          [
...
            '77'
          ]
        );