This simple change gets your program closer to working:

#!/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});
[download]

After this change, running it only gives the error "Undefined subroutine &main::print_address called at bray.pl line 17."

You could also do this:

#!/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});
[download]

I believe it has something to do with the hash key not existing as you're trying to declare it lexically, but I couldn't find anything concrete (to me) in the docs. See my and perlsub for more details.

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)
[download]

my %address;
$address{Bray} = {
[download]

The following may give you ideas to start from:

use strict;
use warnings;
use Data::Dumper;

my %personal_info_of
    = (
       Larry => {
           Name  => 'Larry Wall',
           Str   => 'Camelot 1',
           EMail => 'larry@dromedary.com',
       },
       Bray => {
           Name  => 'Braden Mailloux',
           Str   => 'kapellenstr. 1',
           EMail => 'brayshakes@gmail.com',
       },
       );

for my $hacker (sort keys %personal_info_of) {
    print dump_personal_info_of( $hacker );
}
exit( 0 );

sub dump_personal_info_of {
    my ($goodfella) = @_;

    return q()
        . "Personal information of $goodfella:\n"
        . Dumper( $personal_info_of{ $goodfella } )
        ;
}
[download]

Personal information of Bray:
$VAR1 = {
          'Str' => 'kapellenstr. 1',
          'EMail' => 'brayshakes@gmail.com',
          'Name' => 'Braden Mailloux'
        };
Personal information of Larry:
$VAR1 = {
          'Str' => 'Camelot 1',
          'EMail' => 'larry@dromedary.com',
          'Name' => 'Larry Wall'
        };
[download]

Anyway, as presented here it has at least two serious bugs. First, %address isn't declared. Second, someone forgot to write the print_address subroutine.

Because print_address() is how one would call a subroutine called print_address. Apparently there is no such subroutine, thus the error. You need to create the subroutine or remove that line.

print_address is not a built in function so you would have to supply it yourself. If you provided a link to the tutorial you are using it would be easier to help you. Try just changing it to print instead.

P.S. if you want to include code in your post wrap it in <code></code> tags.


___________
Eric Hodges