Little Perl script for sorting objects inside each subject