# first arg: n
# second arg: array(ref) of strings which are comma-separated lists.
# return: list of nth elements.
sub nth_elemS
{
    map { (split ',')[$_[0]] } @{$_[1]}
}