use warnings;
use strict;

my $y = () = ("a", "b");
print "$y\n";

__END__ 
Prints:
2