#! perl
use strict;
use warnings;

my $ref_HoH =
{
    Fred   => { wife => 'Wilma', daughter => 'Pebbles',   },
    Barney => { wife => 'Betty', son      => 'Bamm-Bamm', },
};

my $var = 'Fred';
my $key = 'wife';

print  "MyText$ref_HoH->{$var}{$key}ishere.\n";             # interpolated
print  "MyText$$ref_HoH{$var}{$key}ishere.\n";              # interpolated
print  "MyText" . $ref_HoH->{$var}{$key} . "ishere.\n";     # concatenated
print  "MyText" . $$ref_HoH{$var}{$key} . "ishere.\n";      # concatenated
printf "MyText%sishere.\n", $ref_HoH->{$var}{$key};         # templated
printf "MyText%sishere.\n", $$ref_HoH{$var}{$key};          # templated