use strict;
 use warnings;

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

 &cure(*cure);

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