Not knowing the first thing about Tk::BrowseEntry other than what I just pulled up on the ActivePerl site, it seems that you need to be passing a scalar reference for your -variable parameter, and an array reference for the -choices parameter. Assuming that $column_params[$i] is actually an array reference:

$Rowframes[ $numberofrows - 1 ]->BrowseEntry(
            -variable => \$data[ $numberofrows - 1 ][$i],
            -choices  => $column_params[$i],
            -state    => 'readonly',
            -width => 16,
        )->pack( side => 'left');
[download]

Brad