12      !/usr/bin/perl -w
11
10      se strict;
9
8       Just
7       Another
6       Perl
5       Hacker
4
3       eek(DATA,0,0);
2       a=*.;
1       rint map{$a-=chomp;s/.//; "$.\t$_\n" }<DATA>;
0       _END__