foreach $record ( sort { $a->{$sort_by} cmp $b->{$sort_by} || $a->{$sort_by} <=> $b->{$sort_by} } @claim_records ) { print STDOUT $record->{'claim_number'}, "\n"; }