my $db = DBI->connect( "dbi:Oracle:$db", $user, $pass ) || die( $DBI::errstr . "\n" );
my $select = 	'DELETE FROM "ADMIN"."CI_STATUS"'; 
my $sth = $db->prepare($select);
$sth->execute();

#	spiele Liste in DB
$stmt = 'INSERT INTO "ADMIN"."CI_STATUS" VALUES (?,?,?,?,?)';
$sth = $db->prepare($stmt);
$sth->execute_array({
	ArrayTupleFetch => sub { return shift @array_class }
	} );
 

$db->disconnect if defined($db);