$files=`ls`;
$_=$files;
print "hi\n\n";

@filesa= split /\n/;

foreach(@filesa) {
	print "$_<--\n";
	}

print "\n-->$ARGV[0]\n";

system("pause");

$c=$ARGV[0];

&renbunch;

sub renbunch     {
	foreach(@filesa) {
		@temp1 = split/-/;
		if (@temp1[0] > $c) {
			$tempp=@temp1[0] - 1;
			print "About to run 'mv @temp1[0]-@temp1[1] $tempp-@temp1[1]' . . . are you sure?\n";
			system("mv @temp1[0]-@temp1[1] $tempp-@temp1[1]");
			}
		}

	}
