Printing $line and @X also seems to fix the leak. I added print $line . "\n" . @X . "\n\n" ; after the split and the leak went away.

No explinations here, just another data point.

"Nothing is sure but death and taxes" I say combine the two and its death to all taxes!