Hmm.. here you are saying

print "$#lines\n";
[download]

but in the OP

@line=split(/$variable/,$_);
[download]

Maybe you mean @lines? or perhaps $#line?

If you include

use warnings;
[download]

at the top of your program, perl helps you emitting a warning if, by typo, you are using a variable only once.