gistfile1.txt

sub setAttributeHash {
  
  my $obj=shift;
  my $count=shift;
  
  if ($count==1) {
    my $key1=shift;
    $obj->{$key1}={@_};
  }
  elsif ($count==2) {
    my $key1=shift;
    my $key2=shift;
    $obj->{$key1}->{$key2}={@_};
  }
  elsif ($count==3) {
    my $key1=shift;
    my $key2=shift;
    my $key3=shift;
    $obj->{$key1}->{$key2}->{$key3}={@_};
  }
  elsif ($count==4) {
    my $key1=shift;
    my $key2=shift;
    my $key3=shift;
    my $key4=shift;
    $obj->{$key1}->{$key2}->{$key3}->{$key4}={@_};
  }
  elsif ($count==5) {
    my $key1=shift;
    my $key2=shift;
    my $key3=shift;
    my $key4=shift;
    my $key5=shift;
    $obj->{$key1}->{$key2}->{$key3}->{$key4}->{$key5}={@_};
  }
  elsif ($count==6) {
    my $key1=shift;
    my $key2=shift;
    my $key3=shift;
    my $key4=shift;
    my $key5=shift;
    my $key6=shift;
    $obj->{$key1}->{$key2}->{$key3}->{$key4}->{$key5}->{$key6}={@_};
  }
  else {
    die();
  }
}