my $transseqchk->{transchk}=

##</code><code>##

my %transseqchk;

##</code><code>##

perl -E'use strict; my $x = "foo"; $$x'
perl -E'use strict; my $x = "foo"; @$x'
perl -E'use strict; my $x = "foo"; %$x'
perl -E'use strict; my $x = "foo"; &$x'
perl -E'use strict; my $x = "foo"; $x->[0]'
perl -E'use strict; my $x = "foo"; $x->{bar}'
perl -E'use strict; my $x = "foo"; $x->()'