my (@col1,@col2);
    my @words = split(//,@col1);