#!/usr/bin/perl 

use strict;
use warnings;

my %address;

$address{Bray} = {

  Name => 'Braden Mailloux',
  Str => 'kapellenstr. 1',
  EMail => 'brayshakes@gmail.com'
};

my $email = $address{Bray}->{EMail};

print_address($address{Bray});