my @sort_keys = qw(director title id type);
use List::Util 'first';
sort { first {$a->{$_} cmp $b->{$_}} @sort_keys } @recs;