Select Code to Download

...
use Data::Dumper;
...
    );
...
@ref_db_data = $sth->fetchall_arrayref;

print Dumper @ref_db_data;
$VAR2 = [
...
            'Smith'
          ],
        ];