my $thread1 = new Thread \&Sub1;
my $thread2 = new Thread \&Sub2;