$dbh = DBI->connect ( "dbi:Oracle:host=$ip;sid=$sd;port=1521", $id, $pw, {RaiseError => 1, AutoCommit => 0} );

	my $sqlexe = $dbh->prepare( $sql );
	my @tempdata;
	my @data;

		$sqlexe->bind_columns ( undef, \$tempdata[0][0], \$tempdata[0][1] );
		while ( $sqlexe->fetch() ) {
			push @{@data}, [ $tempdata[0][0], $tempdata[0][1] ];
		}