>>You have not given a sample of your code,
Here is a part of my code:
[CODE STARTS]
#!/usr/bin/perl
open(FILE, "phone.txt") || die ("cannot open file phone.txt");
$line1=;
while ($line1 ne "")
{
chop ($line1);
@words1 = split(/ +/, $line1);
chomp($words1[0]);
chomp($words1[1]);
c
You have not given a sample of your code, but if you are processing the files in-line,
undef the variables after each file is processed so it can be reused by subsequent
files. Otherwise Perl will keep requesting more and more memory and only release it
when the entire process finishes. When t
