part of my code like:

package record;
use Class::Struct;

struct( 
      
    section1 => '@', 
    section2 => '@',
    
 );
 
my $summer = new record;

my @context1 = qw(sailing swimming);
my @context2 = qw(science art);

$summer->context1names($i++,$_) for @context1;
$summer->context2names($j++,$_) for @context2;

print Dumper(\$summer);

print "@{$summer->context1names}";
[download]

Please help!!! Thanks!!!