foreach my $borrower (
sort {
$a->{surname}
uc($a->{surname}
. $a->{firstname} cmp $b->{surname}
. $a->{firstname}) cmp uc($b->{surname}
. $b->{firstname}
. $b->{firstname})
} @{$borrowerslist}
)
{
-