use Data::Sorting 'sorted_array';
my @sorted = sorted_array( @data, 'Subject', 'start' );