push @Names, %names->{$_}{realname}
  foreach (keys %names);

##</code><code>##

push @Names, %names{$_}{realname}
  foreach (keys %names);

##</code><code>##

my @Names;

my %names =
  (
   'Thunder' =>
   {
    realname => "Mario",
   },
   'Storm'   =>
   {
    realname => "Alfredo",
   },

   'Grail'   =>
   {
    realname => "Giuseppe",
   },
  );