Help for this page
use strict; use warnings; ... while (my $ar1 = $q->dequeue_nb()) { print "array reference : $ar1\n@$ar1\n"; }
use strict; use warnings; ... while (my $ar1 = $q->dequeue()) { print "array reference : $ar1\n@$ar1\n"; }