Select Code to Download

@saw{@in} = undef;

@saw{@in} = (1) x @in;

@saw{@in} = ();

  DB<1> use Devel::Size 'total_size'
  DB<2> @x{1..1000}=()  
...
41049
  DB<5> p total_size(\%y)
45049

if ( exists $some_hash{ foo } ) {
  launch_the_missiles();
}

$x = $some_hash{ maybe_foo() }{ bar };

my @no_repeats = do { my %h; grep !$h{$_}++, @has_repeats };