my %vf_labels;
map{ $vf{$_} =  
 $variable_frame->Label( -textvariable => \ eval "'$'.$_"  )
}( qw/red green blue/);

map $vf{$_}->pack( -side => 'top' ), ( keys %vf );