use strict;
my %myhash;
$myhash{bedrock}{flintstone}{fred} = 3;

my $ref = pointer_to_element(\%myhash, qw(bedrock flintstone fred));

sub pointer_to_element {
  require List::Util;
  return List::Util::reduce { \($$a->{$b}) } \shift, @_;
}