foreach $key (0..$#languages){
   $flag = ${'flag_' . $lang[$key][1]};
}