1 #!/usr/bin/perl -w
  2
  3 use strict;
  4
  5 my $input;
  6 my ($host, $user, $passwd, $db);
  7
  8 # Array mit den Daten fuer den Hash
  9 # (user password)
 10 #
 11 my @array1=qw(user passwort);
 12 my @array2=qw(user passwort);
 13
 14 my $arrayref1=\@array1;
 15 my $arrayref2=\@array2;
 16
 17 # Hash mit den konfigurierten DB-Daten
 18 #
 19 my %hash=("domain" => $arrayref1,
 20         "domain" => $arrayref2
 21         );
 22