my $scalar= ( EXPR )[0];