#! perl
use strict;
use warnings;

my %hXCR  = ( X => { GD => {  0  => { SKT => 17 } } } );
my %hRCX1 = ( X => { GD => { '*' => { SKT => '' } } } );
my $M     =  'X';
my $s     = join
(
    ";", $hXCR{$M}{GD}{0}{SKT}          || 0,
         $hRCX1{$M}->{GD}->{'*'}->{SKT} || 0,
);

print "\n\$s = |$s|\n";

##</code><code>##

17:41 >perl 1026_SoPW.pl

$s = |17;0|

17:41 >

##</code><code>##

$hXCR{$M}{GD}{0}{SKT}