use strict;
     . . .
     my @mylnxsrvrs = split(',', $myhash{SBLLNXSRVRHOSTS});
     foreach my $something ( @mylnxsrvrs )
     {    my $lnxsrvr = "$something";
          print "$something $lnxsrvr\n\n";
     }
     print "$lnxsrvr\n";              ## Undefined now!
     print "@mylnxsrvrs";