my $rec = bless {}; # main is the package
my @sideeffected = qw(a b c);
sub vals { return \@sideeffected }
@{$rec->vals()} = qw(d e f);
print "$_\n" for @sideeffected;