use strict;
use warnings;

##</code><code>##

Global symbol "$dinu_r" requires explicit package name at x line 15.
Global symbol "@energy" requires explicit package name at x line 20.
Global symbol "@energy" requires explicit package name at x line 21.
Type of arg 1 to push must be array (not concatenation (.) or string) at x line
21, near "})"
syntax error at x line 29, near "..."
Execution of x aborted due to compilation errors.

##</code><code>##

my $input = "shuffle$x";
open (AA, $input) or die "Can't open input '$input' ($!)\n"; # LINE A