#!/usr/bin/perl -w

use strict;

#Just
#Another
#Perl
#Hacker

seek(DATA,0,0);
*a=*.;
print map{$a-=chomp;s/.//; "$.\t$_\n" }<DATA>;
__END__