my ($x) = localtime(); # Example 4 #### my $x = () = localtime(); #### my ($x) = f(); # first element of list is assigned my $x = ( f() )[0]; # same, but overkill my $x = ( f() )[-1]; # last element of list is assigned my $x = ( f() )[0] # logical-or of the first elements || ( g() )[0]; # returned by f() and by g()