use strict;
use warnings;

my $h;
{
    my %h;                     # watch from here ...
    $h{fname} = "Foo";
    $holder = \%h;    
}

$holder->{lname} = 'Bar';       

$holder->{email} = 'foo@bar.com';   # ... to before here