my $transform = "";
        $transform = \&transformJpg if  $suffix =~ /^\.(jpe|jpg|jpeg)/i ;
        $transform = \&transformXml if  $suffix =~ /^\.xml/i ;
        if( not $transform ){
            warn "Unknown suffix ($suffix) ignoring($fromFile)";
            next LOOP_FROMFILE;
        }
        
        my $toFile = $transform->(
            $fromFile,
            $directory,
            $filename,
            $suffix,
            $rename_index{lc $suffix}++
        );
        push @fromTo, [ $fromFile, $toFile ];
    }
    return @fromTo;
}