package C_struct;

sub new{
           my $self = shift;
		  	  
           return bless  {'counting_number' => shift,
				   			 'name'            => shift,
							 'stuff_list'      => shift
						  }, $self;
 }
package main;
use Data::Dumper;
my $cc = C_struct->new(123,'bb', [1,2,3]);
my $dd = C_struct->new(234,'cc', [2,3,4]);
print $cc->{name};
print $dd->{name};
print Dumper $dd->{stuff_list};
1;