use strict;
use warnings;

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

cure(\$cure);

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