mktop.pl + strict

mktop_header.pl

use strict;

my ($i, $j, $h);
my $A;
my $B;
my $C5;
my $D;
my $GROUP;
my $H;
my $N1;
my $N3;
my $P;
my $Z;
my $acid;
my $amide;
my $assign;
my $atom2;
my $atom;
my $c;
my $diol;
my $go_j;
my $gone;
my $group;
my $hemi;
my $k;
my $kill;
my $linha;
my $ok;
my $ring_bond;
my $str;
my $sulfonamide;
my $sum;
my $triol;
my $txt;
my $valenceg;
my @ATM;
my @BO;
my @BO_ene;
my @DIOL;
my @TRIOL;
my @Z;
my @array2;
my @array;
my @array_atom;
my @array_r;
my @atm;
my @bond;
my @bond_list;
my @dat;
my @defgroup;
my @dist;
my @ene;
my @group;
my @list;
my @makeg;
my @phosp;
my @purine;
my @ring;
my @symbol;
my @txt;
my @type;
my @valence;