Select Code to Download

sub head($)
{
...
    ${$_[0]} = $xs;
    return $x;
}

my $msg = "new item x";
my $cmd = head \ $msg;
...
} elsif ( $cmd eq 'set') {
   ...
}