Thanks for the link, that will definitely help.
I am now having the same trouble as I did before...
#!/usr/bin/perl
$str = 12;
$rec = {
name => "Anonymous",
age => 25,
strmod => statmod($str),
};
print $rec->{name}."\n";
print $rec->{strmod}."\n";##comes out to 1
$str = 14;
print...