I'm using Tie::File to delete the first line in my file ... delete $lines[1];

Other's have pointed out the problem with delete. I thought someone should point out that that's not the first line in your file. It's the second line. Arrays in perl are (usually) zero-based.

-sauoq
"My two cents aren't worth a dime.";