my $newname = ucfirst $entries[$i];
rename ($handle."\\".$entries[$i], $handle."\\".$newname);