Help for this page

Select Code to Download


  1. or download this
    # Creates a hash %t that has the same contents as %toys
my %t = %{$_[0]};

# Modifies %t (which is unrelated to %toys)
$t{'leggo'} = "yes";
  2. or download this
    my ($toys) = @_;
$toys->{'leggo'} = 1;