# you use strict do you?
  my $arg1= "foo";
  my $file1="bar";
  my @array1;
  file_processing();
  foreach (@array1) { process( $_); }

##</code><code>##

  my $arg1= "foo";
  my $file1="bar";
  my @array1=  file_processing( $arg1, $file1);
  foreach (@array1) { process( $_); }

##</code><code>##

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