Select Code to Download

#! perl -w
use strict;
...
        ordered => sub { return map { ${ $_ }} @fifo; },
    }
}

# TEST CODE ONLY BELOW HERE
my $fifo1 = uFIFO(); # create a fifo - we can have as many as we need
...
      Processed: l f s p q r j m h d n u v i e o x a c y z t g w b k W
+ X Y Z A
        Ordered: l f s p q r j m h d n u v i e o x a c y z t g w b k W
+ X Y Z A 0  1 2 3 4 5 6 7 8 9
      Unordered:  A W X Y Z a b c d e f g h i j k l m n 0 1 o 2 p 3 q 
+4 r 5 s 6 t 7 u 8 v 9 w x y z