Select Code to Download

my $transseqchk->{transchk}=

my %transseqchk;

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->()'