use strict;
use warnings;
use AI::NeuralNet::Kohonen;

push @inputs, [41 scalar entries go here];
# the above statement is actually in a loop

my $input_ref = \@inputs;

##</code><code>##

our $som = AI::NeuralNet::Kohonen->new(
		map_dim_x => $map_dim_x, # 39
		map_dim_y => $map_dim_y, # 19
		epochs => $epochs,   # 100
		input => $input_ref
	);
$som->train();

##</code><code>##

{weight_dim} not set at /home/gotszlin/perl/lib/perl5/site_perl/5.8.5//AI/NeuralNet/Kohonen.pm line 209

AI::NeuralNet::Kohonen::new('AI::NeuralNet::Kohonen', 'map_dim_x', 39, 'map_dim_y', 19, 'epochs', 10, 'input', 'ARRAY(0x926af84)', ...) called at system_net.pl line 50
	NSTAD_net::som_train(39, 19, 10, 'ARRAY(0x926af84)', 'my_first_som.txt') called at system_main.pl line 35
Can't call method "train" on an undefined value at system_net.pl line 56.