Select Code to Download

use strict;
use warnings;
...
print "foreach ver\n";
print Dumper \%ret;

Odd number of elements in hash assignment at test.pl line 15.
map ver
...
          'a1' => 'vala1',
          'a3' => 'vala3'
        };