sub TestSimpleScalars
{
my $r1 = 40 + 2;
my $r2 = 3.14159;
my $r3 = "Humpty Dumpty";
my $r4 = [10, 20, 30];
my $r5 = { name => 'Fred', dateOfBirth => '13-Jan-1969' };
return($r1, $r2, undef, $r3, $r4, $r5, 'end list');
}
####
[SvIV, SvNV, SVt_PV, SVt_NULL, SVt_PVAV, SVt_PVHV, SVt_PV]
##
##
[SvIV, SvNV, SVt_PV, SVt_NULL, SVt_IV, SVt_IV, SVt_PV]