sub foo
{
     my $self = shift;
     my $foo  = shift;

     $self->something($foo, "bar", shift, "shift", "foo");

     my ($flob,$blarg,$kvetch) = (shift,shift);

     if ($kvetch = $flob->fnordicate($blarg))
     {
          shift()->refnordicate($kvetch);
     }
}