{
    local @list;
    $list[0]=$b;
    $list[1]=$a;
    $a=$list[0];
    $b=$list[1];
    undef @list;
}