#!/usr/bin/perl -w 
# renumber from x?? to prefixNN.smi
#
my $prefix = "food";
opendir(FOO, ".");
my @files = sort  readdir(FOO);
closedir(FOO);

my $n=0;
my $i; 
foreach $i (@files) {
	$n++;
	printf "mv $i $prefix%2.2d.smi;\n ", $n;
	}