sub file_processing {
$script = "/export/home/ssesar/Perl/another_script.pl -e";
$open = "$script $arg1 $file1";
open(FILE1, "$open |") or die "can't do it\n";
      while (<FILE1>) { 
          chomp;
 next if /^\#/;
        next if /None/;
        next if /Unkno/;
        next if /unkno/;
        next if /NONE/;
          @_ = split ( /\n/, $_);
          @array1 = @_;
      }
close FILE1;

}

##</code><code>##

$open = "$script $arg1 $file1";
open(FILE1, "$open |") or die "can't do it\n";

##</code><code>##

$open = "$script $arg2 $file2";
open(FILE2, "$open |") or die "can't do it\n";

##</code><code>##

@array1 = @_;

##</code><code>##

@array2 = @_;