my($male); package Is_Big;

SO:

y/don't/you/;
tie $ME, DOWN, @home,
  $in{ bed },
    $tonight;
open( Your, "interfaces");
close( Your_eyes );

for my $kiss (@least){}