Swap two variables without 3rd variable in Perl

$VAR1="alpha";
$VAR2="omega";
($VAR1, $VAR2) = ($VAR2, $VAR1);