foreach (<path_to_sessions/*>) {
    if ( -d ) {
        print "$_\n";
        move(...
    }
}