Data commit

Task/Queue-Usage/Perl/queue-usage-1.pl

@@ -0,0 +1,11 @@
+@queue = (); # we will simulate a queue in a array
+
+push @queue, (1..5); # enqueue numbers from 1 to 5
+
+print shift @queue,"\n"; # dequeue
+
+print "array is empty\n" unless @queue; # is empty ?
+
+print $n while($n = shift @queue); # dequeue all
+print "\n";
+print "array is empty\n" unless @queue; # is empty ?

Task/Queue-Usage/Perl/queue-usage-2.pl

@@ -0,0 +1,3 @@
+1
+2345
+array is empty