sub queryDBI
{
my $query1 = "SELECT $_[2],$_[3],$_[$_-1] FROM ".$_[1];