#!/usr/bin/perl -w
use strict;
use constant flock => "goose "x50;
sub the {
  my $geese=flock;
  return $geese;
}
chomp the flock; #there's the problem:  chomp is operating on flock, not on the returned value of the()