@array=<IN>;
    close (IN);
    
    @sortedarray=sort(@array);
    
    foreach $line (@sortedarray){
        print OUT $line;
    }