#! /usr/local/bin/perl -w

use strict;

my $num_of_params;

$num_of_params = @ARGV;

if ($num_of_params < 2)
{
die ("\n You haven't entered enough parameters !! \n\n");
}

open (FILE, $ARGV[0]) or die "unable to open file";

open (OUTFILE, ">$ARGV[1]");

my $line;
my @array;
my $number;
my $count=0;

while (<FILE>)
{
        $line = $_;
        chomp ($line);

        @array = ();
        @array = split (/\s+/, $line);

 foreach $number ($array[0])
 {
 ++$count;
 print "$count\n";
 print OUTFILE "$count\n";

  if ($number != $number-1 )
  {
  print "$number\n";
  print OUTFILE "$number\n";
                                                
  }
 }
}