my @unsorted = <IN>;
my @sorted = sort {($a=~/chr(\d+)/)[0] <=> ($b=~/chr(\d+)/)[0]}@unsorted;