my $from_name;
my $to_name;
if (-e "${to_dir}/${base_name}.jpg"){
    for (my $i=8; $i >= 0; --$i){
        my $ext = ($i ? ".$i" : '');
        $from_name=$to_dir.'/'.$base_name.$ext.'.jpg';
        $to_name  =$to_dir.'/'.$base_name.'.'.($i+1).'.jpg';
        rename_and_log($from_name, $to_name) if (-e $from_name);
    }
}