my @l  = ($A, $B);
push @l, $C, splice @l, 1;