Are you looking for something like?

for $i (1..100) {
    system( "mv /folder$i/abc.txt /folder$i/folder$i.txt" );
}
[download]

I run under win7, so I have not tested it. If you want to search for files you need File::Find.