Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;

...
print keys %foo;
@foo{qw/1 2 3/} = ();
print keys %foo;
  2. or download this
    die "strange .." if foo eq 'bar';