($a, $b) = ($b, $a + $b); [download]
In reply to Re: Multiple assignment in Perl by Anonymous Monk in thread Multiple assignment in Perl by rnaeye