#!/usr/bin/perl 

use strict;
use warnings;

my %address = ( Bray => {
                 Name => 'Braden Mailloux',
                 Str => 'kapellenstr. 1',
                 EMail => 'brayshakes@gmail.com'
               });

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

print_address($address{Bray});