This is not related to the question you asked, but I would like to note the impressive list of things you did right in your script:

• use strict;
• use warnings;
• Three-argument open()
• Lexical file handle (open( my $fh ...)
• Status check on open (open ... or die ...)

Keep up the good work.