#!/usr/local/bin/perl

 $narg= @ARGV;
 print " $narg river basins\n";

  while (@ARGV) {
    $file= shift @ARGV;
    open(FILE, $file);

    @lines = <FILE>;
    $nlines = @lines;

    $ix++;
    open(FILE1, ">in/$ix");

    for ($i= 0; $i < $nlines; $i++) {
       $line= $lines[$i];
       if ($line =~ /\#/) {
         }
       else {
         @word= split(' ', $line) ;
         printf FILE1 "%9.3f %9.3f\n", $word[0], $word[1];
         }
       }
    }