It's because this line:

    foreach my $line (<FILE_FD>) { # pull records from replay file
[download]

is reading every line from the file into memory.

You should read only as far as you need to each time.

For example:

    while (my $line = <FILE_FD>) { # just read a line at a time
[download]