##
my $s = (undef);
##
##
my $s;
##
##
use strict;
use warnings;
use Data::Dump::Streamer;
my $s = ();
Dump ($s);
$s->{'a'} = 10 ;
Dump ($s);
##
##
$VAR1 = undef;
$HASH1 = { a => 10 };
##
##
my $s = {};