use Data::Sorting 'sort_array';
sort_array( @data, 'Subject', 'start' );