my $compress = do {
    my $previous;
    $compress = sub ($x) { ... }
};