print sort {$a cmp $b} map {(split /\t/,$_)[4]} grep {(substr ($_,15,5) eq "Start")?1:0}<>;