sub grabdataentry
{
  my $href=shift;
  ...
  my @list=split /;/, $href->{$skey};