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