#!/usr/bin/perl

# read 
$essay = '/directory/essay.txt';
$new = '/directory/new.txt';

# Open file handle to read
open(IN, "<", $essay);

# Open file handle to write
open(OUT, ">>", $new);

#read file into array
@yes_finally = <IN>;

# Things to do while reading
while($in = <IN>){

Sort alphabetically.

}