#!/usr/bin/perl -w
use strict; my $me;

my $bonnie = "lies_over_the_ocean";             {
my $bonnie = "lies_over_the_sea";               {
my $bonnie = "lies_over_the_ocean";             {

0; bring_back(my $bonnie = 2, $me);             {

bring_back(
bring_back(
0, bring_back(my $bonnie = 2, $me, 2, $me       )));{

bring_back(
bring_back(
0, bring_back(my $bonnie = 2, $me               )))}}}}}

sub bring_back { 
  print "brought back my bonnie!\n" if @_ == 5;
  return ("",@_);
}