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