Select Code to Download

    my $s = ();

    my $s = (undef);

    my $s;

use strict;
use warnings;
...
Dump ($s);
$s->{'a'} = 10 ;
Dump ($s);

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

    my $s = {};