Use a hash slice. See perldata for more details.

my @rows;
for my $name ( keys %ADDRESS ) {
  push @rows,
    [ "", @ADDRESS{ qw/ First Last Address Phone Email Description / }
+ ];
}
[download]

Update: D'oh. Yup, got distracted and used @ADDRESS{} instead of @{ $ADDRESS{$name } }{}. How embaraskin'.

You were right on the money with the hash slice concept. Thanks. I just want to post the correct code since there was a slight error in yours:

Instead of:

push @rows,
  [ "", @ADDRESS{ qw/ First Last Address Phone Email Description / } ]
+;
[download]

I had to use:

push @rows,
  [ "", @{$ADDRESS{$name}}{ qw/ First Last Address Phone Email Descrip
+tion / } ];
[download]

    I still don't really understand [map]

It took me some time to really get my mind around map the first several dozen times I encountered it, myself.

One thing that finally helped me to begin to feel more comfortable with it was to realize that map is simply an "inside-out" version of foreach.

So you can switch between the following:

foreach ( LIST ) {
   DO_SOMETHING_WITH-$_
}
[download]

... and ...

map { DO_SOMETHING_WITH-$_ } LIST;
[download]

Maybe that will help you as much as it helped me :)

"..an "inside-out" version of foreach."

That's a handy way of looking at map.

I'm not so sure about:

DO_SOMETHING_WITH-$_
[download]

In both cases you would be changing the array. Indeed it would only work with an array (see the comment below). This is clearly your intention with the map as you've used it in void context, i.e. although map returns a list you're just throwing it away.

It may be better to say map is useful if you want to create an array based on another array. I think: "Do something with a $_, but don't change it" would be better/safer. :-)

#!/usr/bin/perl 

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


my @array = qw{a b c};
my @new_array = map{my $letter = $_; ++$letter} @array;
print "before: @array\n";
print "after:  @new_array\n";

# with some extra white space
# it looks even more 'inside-out' :-)
my @another = map{
  my_func()
} @new_array;

print "another: @another\n";
print "original \@array: @array\n";



sub my_func {
  my $letter = $_;
  $letter++;
  return $letter;
}

exit;

# DO_SOMETHING_WITH-$_
# doesn't work on a list
for (qw{a b c}){
  # this line generates:
  # "Modification of a read-only value attempted at..."
  ++$_;
}

# so does this
map {++$_} qw{a b c};
[download]

output:

---------- Capture Output ----------
> "C:\Perl\bin\perl.exe" _new.pl

before: a b c
after:  b c d
another: c d e
original @array: a b c

> Terminated with exit code 0.
[download]

updated: corrected my_func sub.

my @row=map [@{$ADDRESS{$_}}{qw/First Last Address Phone Email Descrip
+tion/}], keys %ADDRESS;
[download]