while (my($screen_name, $function) = each %states) {                
    $function->($screen_name eq $current_screen);
}