Select Code to Download

use strict;
use DBI;
...
print "@$ref[0] - @$ref[1] - @$ref[2]\n";

$dbh->disconnect;