my $surname = 'Feynman';
my @matching_ids =
    grep { $accounts{$_}{surname} eq $surname }
    keys(%accounts);