An illustrative implimentation of Kohonen's Self-organising Feature Maps (SOMs) in Perl.