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