my $s = ();

##</code><code>##

    my $s = (undef);

##</code><code>##

    my $s;

##</code><code>##

use strict;
use warnings;
use Data::Dump::Streamer;

my $s = ();
Dump ($s);
$s->{'a'} = 10 ;
Dump ($s);

##</code><code>##

$VAR1 = undef;
$HASH1 = { a => 10 };

##</code><code>##

    my $s = {};