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

##</code><code>##

die("No records matching surname $surname\n") if !@matching_ids;

##</code><code>##

@{ $accounts{$id}{transactions} }