while (@keylist > 1) {
    my $key = shift @keylist;
    $hashref = $hashref->{$key};
}