sub count_orientation($ \% \%){
[download]

I was a bit surprised to find that spaces in a prototype declaration are accepted. A quick perusal of the perlsub documentation for ActiveState 5.8.9 and Strawberries 5.10.1 and 5.12.3 reveals no mention of whitespace. Ya learn somethin' every day.

The general consensus regarding prototypes seems to be that they were a good idea that was only 60%-80% baked, and that one should probably not use them unless one knows exactly how they work; the fact that Jaapx is calling a prototyped function in such a way as to defeat prototyping suggests he or she does not.