use Sort::Key::Multi 's4_keysort'; # s4 => 4 string keys

@sorted = s4_keysort { @{$_}{qw(director title id type)} } @recs;
[download]