in reply to can i return two hashes from a soubroutine

Use of uninitialized value in concatenation (.) or string at C:\scripts\perl\source\testhash.pl line 20.
I believe you are getting this warning because you have a typo.

Change:

'type' => "type-test-$1hasrows",

to:

'type' => "type-test-$hasrows",