Hi Experts, I've created a package that looks like this:

package Module_IO;
use Moose;
has name => (is => 'rw', isa => 'Str');

has net_type => (is => 'rw', isa => 'Str');

has width => (is => 'rw', isa => 'Str');

has direction => (is => 'rw', isa => 'Str');

sub print_all_IO{
        my ($self) = @_;
        print $self->name; 
        
}
[download]

And I have a multi-dimensional array which contains handles to objects of type "Module_IO". Each File creates a new Object for every line of input from it.

$Module_IO_container[$FileNum][$index] = $obj;
[download]

And once I have populated this array with sufficient number of handles, I want to print them out:

foreach my $a1 (@Module_IO_container) {
    foreach my $b1 (@$a1) {  
        print $b1->print_all_IO, "\n";        
    }
}
[download]

However, as a result I get: one1 two1 three1 ... instead of: one two three What am I doing wrong?