gistfile1.txt

#!perl6

use v6;
use Slang::Tuxic;

use Text::CSV;

sub Filter (CSV::Row $r) {
    $r<legs> < 8 && $r<code> > 2;
    } # Filter

csv (in      => "legs.csv",
     out     => $*OUT,
     headers => "auto",
     filter  => &Filter);

csv (in      => "legs.csv",
     out     => $*OUT,
     headers => "auto",
     filter  => sub $ (CSV::Row $r) {
        $r<legs > 70;
        });