Bareword found where operator expected

The “Bareword found where operator expected” error means you wrote an unquoted string where Perl expected an operator, keyword, or other element.

What It Means

Perl allows barewords (unquoted words) in limited contexts — hash keys, subroutine names, and labels. Outside those contexts, a bareword triggers a warning (with use warnings) or becomes a string literal (without strict). When strict is enabled, any bareword that is not a recognized keyword or subroutine causes a compile-time error. Perl tries to interpret the word as an operator or syntax element and fails.

Why It Happens

• You forgot quotes around a string: print Hello instead of print "Hello".
• You used a bareword as a hash key assignment outside the hash constructor: $hash{key} instead of $hash{'key'} (though $hash{key} is actually fine with strict off; with strict on, bareword keys are allowed).
• You misspelled a function name — Perl sees it as a bareword.
• You omitted a comma in a qw() list: qw(apple banana orange) is fine, but qw(apple banana, orange) is not.
• You wrote a constant without using use constant.

How to Fix It

1. Quote all string literals

use strict;
use warnings;

# Bad — bareword error
my $name = John;
print Hello;

# Good — strings are quoted
my $name = "John";
print "Hello";

2. Use the -w flag or use warnings to catch barewords early

#!/usr/bin/perl -w
# or in the script:
use warnings;
use strict;

my $message = "Hello";
print $message;         # OK — variable, not bareword
print "$message";       # OK — quoted

3. Check for missing commas in lists

use strict;
use warnings;

# Bad — missing comma
my @fruits = qw(apple banana cherry date);
print @fruits;

# Fix — note qw() does not use commas; it splits on whitespace
my @fruits = qw(apple banana cherry date);

# For quoted strings, use commas:
my @colors = ("red", "green", "blue");

4. Use use constant for named constants

use strict;
use warnings;
use constant PI => 3.14159;

my $radius = 5;
my $area = PI * $radius ** 2;   # PI is a bareword but allowed via constant
print "Area: $area\n";

5. Check for missing operator symbols

use strict;
use warnings;

# Bad — missing concatenation operator
my $greeting = "Hello " "World";

# Good — use the dot operator for concatenation
my $greeting = "Hello " . "World";