my $row = <$fh>;

##</code><code>##

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

##</code><code>##

    @col2 =~ m/$words[$_](\d+)/