sub doSomethingStupid {
   $ENV{TIME} = shift;

   sleep($ENV{TIME});

   print "Time is $ENV{TIME}";
}

@vars = ("1", "2", "3", "1");
foreach $var (@vars) {
   my $thread = new Thread \&doSomethingStupid ($var);
   $thread->detach();
}