#!/bin/sh
#
if (open FIN, "@ARGV[0]")
{
        if (open FOUT, ">@ARGV[1]")
        {
                @a = <FIN>;

                $b = 1; $c = @a;
                while ($c > 10)
                        { $b++; $c/=10; }

                for ($i=0; $i<@a; $i++)
                        {printf FOUT  "%0" . $b . "d " . @a[$i], $i;}
                close FOUT;
        }
        close FIN;
}