no threads;

my $j = 0;
for (1..10) {
    $j++;
    `mv ./a_file$j /home/user/dir 2>&1 &`;
}