sub getOracleRowHash{
	
	my $odbh = shift; 
	my $osth = $odbh->prepare("select pk from emp");
	$osth->execute();
	
	my $tableref;
	while(my $row = $osth->fetchrow_hashref()){
		no warnings;
		$tableref->{$row->{'pk'}} = $row;
}
	return $tableref;
}