#!/usr/local/bin/perl5 -w
#
$limit=shift(@ARGV);
foreach $i (@ARGV) {
	$copy = $i;
	next unless $copy =~ m%^,%;
	$copy =~ s/^,//;
	next unless $copy =~ m%\d+%;
	next unless $copy > $limit;
	$com= "mv ,".$copy.' '.$copy;
	system($com);
}
1;
