sub feldlabel{
my ($field,$lbl) = split /:/,shift;
${"lbl_$field"} = $lbl;
return ${"lbl_$field"};
}

my ($field,$lbl) = split /:/, shift;
my ${"lbl_$field"} = $lbl;
return ${"lbl_$field"};

my ($field,$lbl) = split /:/, shift;
my ${"lbl_$field"};
${"lbl_$field"} = $lbl;
return ${"lbl_$field"};