sub se {
    my ($val) = @_;

    sub { $_[0] eq $val } ;
}