does it push the value, or just a pointer?

When you're passing around objects, really you're passing around special references. So even if you have two scalars pointing to one struct, it's that same struct you're modifying, regardless of how it's named.

It might be easier to illustrate with an example:

use Class::Struct;
use strict;

struct Test => [ xyz => '$' ];

our $T = new Test(xyz => 123);
print "\$T->xyz starts as: ", $T->xyz, "\n";

no strict 'refs';
my $symbolic = "T";
${$symbolic}->xyz(456);
print "\$T->xyz is now:    ", $T->xyz, "\n";

my %A
$A{t} = $T;
$A{t}->xyz(789);
print "\$T->xyz is now:    ", $T->xyz, "\n";

__END__
$T->xyz starts as: 123
$T->xyz is now:    456
$T->xyz is now:    789
[download]

my $a = new Test ( xyz => 123 );         # original
my $b = new Test ( xyz => $a->xyz );     # copy of a

$b->xyz(456);
printf "a=%d b=%d\n", $a->xyz, $b->xyz;  # a=123 b=456
[download]

I don't know of an easy way to "deep copy" struct objects, though the Clone module (or Storable's 'dclone' function) may help.

Thanks for clarifying that Fastolfe. But, I guess my original question still stands. Without turing strict off, I can't really load a Hash with unique structs that are created on the fly as I read each line in. true or not true?

Here is an example that reads 'configuration info' from Perl's built in DATA filehandle. I use DATA because it's easy and you only need one file for demonstrations. Anyhow, the configuration is simply two values seperated by a comma per line. The while loop processes DATA one line at a time and creates a new struct object with the values it finds. After the struct is instantiated, it is pushed to an array. Since it is already a reference there is no need to de-reference it. The last line is a for loop that prints out only one of the attributes for each struct in the array.

use strict;
use Class::Struct;

# declare the struct
struct(MyStruct => {
   even => '$',
   odd  => '$',
});

# create array of structs
my @structs;
while (my $line = <DATA>) {
   chomp $line;
   my ($odd,$even) = split(',',$line);

   my $obj = new MyStruct;
   $obj->odd($odd);
   $obj->even($even);

   push(@structs,$obj);
}

print $_->odd(), "\n" foreach (@structs);

__DATA__
one,two
three,four
five,six
seven,eight
nine,ten
[download]

use strict;

# create array of structs
my @structs;
while (my $line = <DATA>) {
   chomp $line;
   my ($odd,$even) = split(',',$line);
   my %hash = (
      odd  => $odd,
      even => $even,
   );
   # i do have to de-reference %hash though
   push(@structs,\%hash);
}

print $_->{'odd'}, "\n" foreach (@structs);

__DATA__
one,two
three,four
five,six
seven,eight
nine,ten
[download]

print $_->{odd},"\n"for map{my($o,$e)=split',',$_;{odd=>$o,even=>$e}}<
+DATA>;
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
F--F--F--F--F--F--F--F--
(the triplet paradiddle)