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]