In daten_einlesen() you have: my [EMAIL PROTECTED];
which sets $datenbank to the number of elements in @_ (the arguments to the subroutine). You probably want: my ($datenbank) = @_; Or: my $datenbank = shift; Jonathan Paton -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>