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>


Reply via email to