perl -MO=Deparse double_bracket_op.pl double_bracket_op.pl
use warnings;
use strict;
use feature 'say';
while (defined($_ = <<>>)) {
    say $_;
}
__DATA__
double_bracket_op.pl syntax OK