use strict;
use warnings;


sub tst {
    warn "tst($_[0]) called\n"
}

my $symbol="tst";


($::{$symbol})->(1);

&{$::{$symbol}}(2);

(main->can($symbol))->(3);

&{main->can($symbol)}(4);


##</code><code>##

C:/Perl_524/bin\perl.exe  d:/exp/symbolic_references.pl 
tst(1) called
tst(2) called
tst(3) called
tst(4) called