my %rul = %$rull;

while ( my ( $k, $v ) = each %rul ) {
    ...
}