my @unsorted;
{
local $/ = "\r\n";
@unsorted = <IN>;
}