count lines in perl