Select Code to Download

use v5.12;
use warnings;
...
    DDumper \@a;
    }
$sth->finish ();

$ perl test.pl
[   1,
...
    5,
    6
    ]