my $t = new Thread \&mach_was;
$t->detach();

sub mach_was
{
foreach (1 .. 5){
    $var--;
}
}