my ($test) = @ARGV;

unless (defined($test) && test =~ /^[01]+$/)
{
     die "...";
}

my @test_queue = split('', $test);