# map returns a list so although
print password(5); # result abcdefgh
$p = password(5); print $p ; # result 8

# one fix is to use
return join '',map { $c[ rand @c ], $v[ rand @v ] } 1..4;
[download]