first one:
while (1) {
   my $variable = \$variable;
}

second piece:
define a class with this new:
sub new {
    my $self = {};
    $self->{"parent"} = $self;
    $self->{"child"} = $self;
    bless $self;
    return $self;
}