#!/usr/bin/perl -w
$j=1;
open (FILE,"$ARGV[0]") or die;
my @temp =<FILE>;
close FILE;

foreach $x(@temp)
{

        chomp($x);
                $line = $1;
                $flag = 1;


}
open (FILE,"$ARGV[1]") or die;
my @parse=<FILE>;
close FILE;
open(WRITE,">output.txt");
        {
        if($flag==1){
                if ($x==$parse[$0])
        {
print WRITE "$x $j\n  $line\n";$j++;}
}
}