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});

##</code><code>##

# perl data_structure_refs.pl
syntax error at data_structure_refs.pl line 4, near "$address{Bray"
Execution of data_structure_refs.pl aborted due to compilation errors.