or download this
#!/usr/bin/perl -w
#
...
# Here is where I run out of steam
# Begin Metacode
read each line and push ($_,@"$b") continue to do this until
+ a newline is reached. When a newline is reached intialize the next
+$b as an array and repeat the above proccess until all elements of @B
+ROKERS are exhausted.