Perl toolbox

autobox_with_subs

#!/usr/bin/perl

# Not certain if this will ever be useful, but thanks to choroba@perlmonks.

use warnings;
use strict;

my $join = sub {join pop, @{shift()} };
my $grep = sub { my $f = pop; [ grep {$f->($_)} @{shift()} ]};
my $say  = sub { print( @_, "\n" ) };

[1 .. 200]->$grep(sub { /0/ } )
          ->$grep(sub { /1/ } )
          ->$join("\n")
          ->$say("\nIt works!");
          
# Perhaps even something like:
reduce { $a->$b } \@data, @subs;