Select Code to Download

use Tk;
$mw = new MainWindow(-title=>'mapp');
$pg = $mw->Frame;
...
    my @a = ( split ( ",", $ifg->{parameter} ) );
    for ( @map_fields ) { $$_ = shift @a } ;
}