{ # closure for cubed

  my $square 
       = sub { my $x = shift; 
               return $x**2; 
             };

  sub cubed 
  { 
      my $z = shift; 
      return $z*$square->($z); 
  }

} # end closure for cubed