#!/usr/bin/perl -wT
use strict;

my @arr             = ("\n","dog\n","cat\n");
my $patternmatch    = 0;
my $underscorematch = 0;

/^$/ && $patternmatch++    for @arr;
$_   || $underscorematch++ for @arr;

print "Patternmatch    = $patternmatch\n";     # <==  prints 1
print "Underscorematch = $underscorematch\n";  # <==  prints 0