I went ahead and overrode chomp to make it chomp the flock.

#!/usr/bin/perl -w
use strict;

use subs qw(chomp flock);
my @gFlock=(1..10);

sub chomp
{
  pop @gFlock;
}

sub the
{
  'My flock is: ',shift,"\n";
}

sub flock
{
  join(' ',@gFlock);
}

while (flock)
{
  print the flock;
  chomp the flock;
}
[download]