# filerinfohash
my %finfo;
my $hashref=\%finfo;
# füllen mit infos
&info_abfrage($filer,$hashref,@vfilerlist); 
# output
&output($hashref);
##################################################################
sub info_abfrage {
 my ($name,$ref,@liste)=@_;
 
 print ("Ausgabe: Name=> $name, Liste: @liste, hashref=> *$ref* \n"); 
 foreach my $vfilern (sort @liste)
 {
  open (ABFRAGE,"befehlsliste | ") || die "cannot execute";
  while (<ABFRAGE>)
     {
     chomp (my $r2=$_);
     my ($option,$info)=split (/=/,$r2);
     if ( $info eq "" )
         { $info = "NOT SET"; }
     if ($option =~ /domainname/ )
         { $$ref{$name}{$vfilern}{'dnsdomain'}="$info"; }
     elsif ( $option =~ /resolvconf/ )
         { $$ref{$name}{$vfilern}{'dnsserver'}="$info"; }
     elsif ( $option =~ /wins/ )
         { $$ref{$name}{$vfilern}{'winsserver'}="$info"; }
     else
         { print ("Wrong option $option \n"); }
    } # end while abfrage
  close (ABFRAGE);
 }# end foreach
}
##################################################################
sub output {
my ($refz)=@_;
foreach my $serv (sort keys %{$refz})
{
 print ("\nFiler $serv:\n");
 foreach my $vfiler (sort keys %{$refz{$serv}})
 {
 }
}
} # end of sub

$refz{$serv}

$refz->{$serv}

 foreach my $vfiler (sort keys %{$refz->{$serv}})
{
}