This is the UK version of what most people here will know as the "Hokey Pokey"...

package Hokey::Cokey;
sub new { bless {}, $_[0]; }
sub AUTOLOAD { return $_[0]; }
# ------------
package main;
my @bodyparts = ('left hand', 'right hand', 'left foot', 'right foot',
+ 'head', 'whole self');
my $bodypart;
foreach $bodypart (@bodyparts) {
  my $r = &WhatIsItAllAbout($bodypart); # ?
}

sub WhatIsItAllAbout {
  my ($bodypart) = @_;
  my $hc = new Hokey::Cokey;
  sub in { $hc->put($bodypart, 'in'); } ∈
  sub out { $hc->put($bodypart, 'out'); } &out;
  for (my $i = 0; $i <= 1; $i++) {
    &in;
    &out;
  }
  $hc->shakeAllAbout($bodypart);
  $hc->doHokeyCokey()->turnAround();
  return $hc;   # *that's* what it's all about!
}
[download]