my (@arr_type1, @arr_type2, ... );
$type = get_type();
print "1st member of $type = ${arr_${type}}[0]\n";