#!/usr/local/bin/perl -w

use 5.006;

package Mary::Mary;

no integer;  no lib;
no locale;   no ops;
no overload; no re _;
no strict;   no warnings;

Mary::Mary's::garden->grow() ???
:0
;

package Mary::Mary's::garden;

sub MODIFY_ARRAY_ATTRIBUTES {()}
sub MODIFY_SCALAR_ATTRIBUTES {()}

sub grow {

  my @bells :Silver

    and my @cockleshells

      and my($maid1,
             $maid2,
             $maid3,
             $maid4,
            ) :Pretty;

}


# 
# Mary, Mary, quite contrary,
# How does your garden grow?
# With silver bells and cockleshells,
# And pretty maids all in a row.
#