# allgemein
   %res = (%ha, %hb, %hc);

# praktisches Beispiel
# in Methoden Werte vorbelegen
sub new{
    my $class = shift;
    my %cfg = (
        host    => '',        
        port    => 80,
        http    => '1.0', 
        timeout => 10,
    @_);

   ...
}