sub add2hash {
   my ($value, $hashref) = @_;
   my @array = (split /X/, $value);
   $hashref->{$array[0]} = $array[1];
}
...
add2hash ('fooXbar',  \%hash);
add2hash ('bishXbash', \%hash);