print "Skipping $count lines";
splice @lines, 0, $count;
...

my $current_line_number = $count;
foreach my $line (@lines) {
    print "Processing $current_line_number\n";
    ...
    $current_line_number++;
};