It seems from your if condition, that you are only interested in ($date, $number_dialed, $connect_time).

A better approach seems to be:

• read all lines from INFILE2 in a loop and e.g. concatenate them
• stuff the result in a hash, using the concatenation result as a key
• then, while reading INFILE1, construct a key in the same manner, and look up this key in the previously built hash.

If the storage needed for building the hash in the first place (reading INFILE2) surpasses your workstation's memory ressources, store them in e.g. a DB_File or DBD::SQLite database.

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}