http://www.perlmonks.org?node_id=826761


in reply to Smart enough for Smart Match??? (was "Understanding ...Given/When" )
in thread Understanding the benefit of Given/When ...

I don't know why the following doesn't work: 
use 5.010;
use strict;
use warnings;

my @a='abc';
given (@a) {
    when (/abc/  ) { print "abc\n" }
    when (1      ) { print "#\n"   }
    when (['abc']) { print "copy\n" }
    when (\@a    ) { print "self\n" }
}

# copy

[download]
Why is it skipping Array Regex to go to Array Array?

In Section Seekers of Perl Wisdom