#! usr/bin/perl

use strict;
use warnings;
use DBI;
my $i;


#-----------------DATENBANK------------------#


my $database = DBI->connect("dbi:SQLite:dbname=datenbank","","") or die "Fehler bei Datenbankverbindung: $!";






#------------------DATEI-----------------------#

open(FILE,"./Namen")|| die "Datei kann nicht geoeffnet werden!";    #Datei öffnen
my @datei_inhalt;
@datei_inhalt=<FILE>;                                               #Inhalt von Datei in Array datei_inhalt speichern
close(FILE);

foreach $i(0..$#datei_inhalt)
{
    print "$i $datei_inhalt[$i]";
}

#------------------DATEI-ENDE--------------------#


$database->disconnect;