Dear Monk, Try the below,

 use strict;
 use warnings;

 our $cure = "cure";
 our @cure = ('one', 'two', 'three');

 &cure(*cure);

 sub cure {
         my $new = shift;
         print "$$new";
         print "@$new";
 }
[download]

I hope, you would have understood by seeing the code. Yes, ofcourse my variables won't available in symbol table.

Also, read the Variables and Scoping tutorials for more.