#!/depot/perl-5.8.3/bin/perl 
 
@file_list = `cat $ARGV[0]`; 
@grep_list = `cat $ARGV[1]`; 
$i = 0; 
 
foreach $file_name (@file_list) 
{ 
        $g_name = @grep_list[$i]; 
        chomp($file_name); 
        chomp($g_name); 
        `sed -i "s/$g_name/$g_name \-name \"replace NUMBER\#1234\"/g" $file_name `; 
         $i = $i+1; 
}