pdl

 # ack Module::Load --output='@{[`git blame $_[1] -L $.,$. | perl -e "chomp and print while <STDIN>"`]}'
 alias ack-blame="ack --output='@{[\`git blame \$_[1] -L \$.,\$. | perl -e \"chomp and print while <STDIN>\"\`]}'"

sm.pl

use strict;
use warnings;

print "ok 1\n" if 2 ~~ (1,2);
print "ok 2\n" if 2 ~~ [1,2];

my $foo = [];

print "ok 3\n" if $foo ~~ (1,$foo);
print "ok 4\n" if $foo ~~ [1,$foo];