my ($v, $k) = split /;/;