use constant DEBUG => 0;

##</code><code>##

print gmtime($object) ."\n" if $DEBUG == "1";
print gmtime($object) ."\n" if $DEBUG;

# ahem, but since we'll be using the constant DEBUG
print gmtime($object) ."\n" if DEBUG; # sorry i didn't mention this earlier

##</code><code>##

for ( @filename ) {
	my $filename = $_;
	...
}

##</code><code>##

for my $filename (@filename) {
	...
}