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