#! perl -w
use strict;

my(%upload,%seen);
my($counter,$file,$old);



%upload=(a=> 'dog.gif',
		b=> 'cat.gif',
		c=> 'llama.gif',
		d => 'dog.gif'
		);




for (keys %upload){
		
		$file=$upload{$_};
		
		if(defined $seen{$file}) {
			$old=$file;
			while (defined $seen{$file}){
				$file=$old;
				$counter++;
				$file=join('.',$file,$counter);
			
			}
			
	  	}
	  	
	  $seen{$file}=$file;
	  print "<font color=blue><center>Uploaded ",$file,"</font></center>\n"; 
	  	
	  
  }