use strict;

sub deep { shift,print shift }

my $soul, my $me;

$soul->{so} =
'in love with her'
and $me = $soul,

bless $me, my $God;

$me->deep($soul->{so})
[download]