$var = "project";
my @ca = ("dbi:Oracle:testdbp",$var,"project7");
    eval {
        my $dbh = DBI->connect(@ca);
        };
    if($@) {
        print "Oracle error: $@\n";
    }