@a = qw(a b c d e);
$b = () = @a;  # $b now is 5