#!/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});
####
#!/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});
##
##
s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)