Select Code to Download

use Thread::Queue;

my $q = Thread::Queue->new;
...
    my ($first, $second) = @$ref;   # Dereference array
    # ... Process $first and $second
}