Select Code to Download

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

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

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