sub grabdataentry
{
my $href=shift;
my %dhash=%{$href};
my $skey=shift;
my $pos=shift;

my @list=split /;/, $dhash{$skey};
  
  return $list[$pos];

}