in reply to HoHoH Dynamicaly

Data::Diver will do this for you: 
DiveVal( \%statushash, @tmp, 0 ) = '0';

[download]

In Section Seekers of Perl Wisdom