sleep_sort.pl

# sleep sort!!!

use strict;
use Thread;


my @threads;
my $count = 0;

foreach my $n (@ARGV) {
	next unless defined $n;
	$threads[$count] = Thread->new(\&start_thread, $n);
	$count++;
}

foreach my $thread (@threads) {
	$thread->join();
}

print "\nsleep sort done!";

#############################################
sub start_thread{
	my ($num) = @_;
	sleep $num;
	print $num;
}