my $dbh = DBI->connect(@array);