#!/usr/bin/perl -w

seek(DATA,0,0);
*a=*.;
print map{$a-=1;$..$_}<DATA>;
__END__