@_ is a list of aliases 

sub swap {
    ($_[0], $_[1]) = ($_[1], $_[0]);
}

swap($x, $y);