sub sumTo {
    my $target = shift;
    my @list = @_;
    if( $list[ 0 ] ) == $target ) 
        return 1;
    }
    return 0;
}