my $ref = \%statushash;
    $ref = $ref->{$_}  for @tmp;
    $ref->[0] = '0';
[download]