hashwarn.t revision 1
test_warning 1, shift @warnings, $odd_msg;
test_warning 2, shift @warnings, $odd_msg;
test_warning 3, shift @warnings, $odd_msg2;
test_warning 4, shift @warnings, $ref_msg;
test_warning 5, shift @warnings, $ref_msg;
test_warning 6, shift @warnings, $odd_msg;
my $avhv = [{x=>1,y=>2}];
test_warning 7, shift @warnings, $odd_msg;
test_warning 8, shift @warnings, $odd_msg;