my $scalar;
{
  my @expr = EXPR();
  $scalar = @expr[0]; # or $expr[0];
}