#!/usr/bin/perl
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 .. 120]->$grep(sub { /0/ } )
          ->$grep(sub { /1/ } )
          ->$join("\n")
          ->$say("\nIt works!");