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

##</code><code>##

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

##</code><code>##

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