sub double {
    foreach(@_) {
        $_ *= 2;
    }
}

double($x, @y);