#!/usr/bin/perl -w

use strict;

my $loc_dir  = 'h:/andrew/bruner/temp/stage/';
my $to_dir   = 'h:/andrew/bruner/temp/stage/copies/';
my $net_dir  = 'j:/templas/';
my $from = '.las';
my $counter = '0';
my ($old, $new, $name);
my @usedarray;
     
while (<$loc_dir*$from>) {
     $old = $new = $_;
    
     $new =~ s/^$loc_dir/$net_dir/; 
     
     while (exist($new)) {
          $counter++;
          $new = substr($new, 0, 22) . $counter . ".las";
     }

     $counter = '0';
     $new =~ s/^$net_dir/$to_dir/;
     rename $old, $new;
     print "\nRenamed $old $new";
}

sub exist {
    my $file = shift;
    if (-e $file) {
        print "\nFile $file exists.";
       return 1;
    }
    
    $file =~ s/^$net_dir/$to_dir/;
    
    if (-e $file) {
        print "\nFile $file exists.";
       return 1;
    }
}