Select Code to Download

    my $row = <$fh>;

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

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