for $file (@files){
      system( 1, "perl part2.pl $file" );
      # Error checking omitted for simplicity
  }