Select Code to Download

perl -E 'say "undefined" if ! defined($var);'

perl -E '$var = 1; say "defined" if defined($var);'

perl -E 'say "Hello" if undef == 0;'

my $var;  # Currently $var is undef
print $var + 5, "\n"; # 5
print ++$var, "\n";   # 1

my %hash;
$hash{foo} = { bar => 'baz' };

%hash = (
  foo => {        # { is an anon-hash constructor
    bar => 'baz'
  }
);

my %hash;
$hash{foo}{bar} = 'baz';