It does have __LINE__, which evaluates to the number of the line that token resides on. For example:

print __LINE__, "\n";
print __LINE__, "\n";
my $number = __LINE__;
print $number, "\n";
[download]

And the output is:

1
2
3
[download]