See Data::Diver and references quick reference

#!/usr/bin/perl --
use strict;
use warnings;
use Data::Dump qw/ dd /;
use Data::Diver qw/ Dive /;
my $plot = {
   'home' => ['main', '100 - Main Street'],
   'rent' => ['travel', 'Other State'],
};
my $of = "home";
print $plot->{ $of }[0], "\n";
print Dive( $plot, $of, 0 ) , "\n";

__END__
main
main
[download]