@mylnxsrvrs = split(',', $myhash{SBLLNXSRVRHOSTS});
@mywinsrvrs = split(',', $myhash{SBLWINSRVRHOSTS});
@mysblroot = split(',', $myhash{SIEBELROOT});
@mysblsrvrpath = (',',$myhash{SBLSRVRPATH});
foreach $something (@mylnxsrvrs)
{my $lnxsrvr = "$something";
printf "$something $lnxsrvr\n\n";}  ##dvapoms1 dvapoms1
                                    ##dvapoms2 dvapoms2
printf "$lnxsrvr\n";                ##"shows null"
printf "@mylnxsrvrs";               ##dvapoms1 dvapoms2