Select Code to Download

$ cat junk
#!/usr/bin/env perl
...
print "plain grep:   " . (grep {/a/} @array) . "\n";
print "tied smatch:  " . (/a/ ~~ @array_t) . "\n";
print "tied grep:    " . (grep {/a/} @array_t) . "\n";

$ junk
plain smatch: 1
...
Use of uninitialized value in pattern match (m//) at ./junk line 12.
tied smatch:  
tied grep:    1