$dest_data="dest_data".$i;
print qq!<select name="$dest_data"><option value="SELECT">!;
for my $val ('A'..'K'){
  my $sel=($val eq param($dest_data)) ? "SELECTED" : "";
  print qq!<option value="$val" $sel>$val!;
}
print q!</select>!;