carcassonne :
I'd try

  
for(keys %names) {
  push @Names, $names{$_}{realname};
}
[download]

Hope this helps.