zz

use strict;
my $unsorted "undone.txt";
my $sorted = "done.txt";
open(ifile, "<$unsorted") || die "Couldn't open file\n";
while(<ifile>){
my($line) = $_;
chomp($line);
my @dets = split(/	/,$line);
	print "$dets[1]:$dets[2] $dets[4]\n";
	open(LOG,">>$sorted");
	print LOG "$dets[1]:$dets[2] $dets[4]\n";
	close(LOG);
}
close(ifile);