1#!/usr/local/bin/perl
2
3$num=1;
4$width=40;
5
6while (<>)
7	{
8	chop;
9
10	$i=length($_);
11
12	$n=$width-$i;
13	$i=int(($n+7)/8);
14	print $_.("\t" x $i).$num."\n";
15	$num++;
16	}
17
18